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CHAPTER  1 


INTRODUCTION 


The  Ada  implementation  described  above  was  tested  according  to  the  Ada 
Validation  Procedures  [Pro90]  against  the  Ada  Standard  [Ada83]  using  the 
current  Ada  Compiler  Validation  Capability  (ACVC).  This  Validation  Summary 
Report  (VSR)  gives  an  account  of  the  testing  of  this  Ada  implementation. 

For  any  technical  terms  used  in  this  report,  the  reader  is  referred  to 
[Pro90].  A  detailed  description  of  the  ACVC  may  be  found  in  the  current 
ACVC  User's  Guide  (UG89]. 


1.1  USE  OF  THIS  VALIDATION  SUMMARY  REPORT 

Consistent  with  the  national  laws  of  the  originating  cox;intry,  the  Ada 
Certification  Body  may  make  full  and  free  public  disclosure  of  this  report. 
In  the  United  States,  this  is  provided  in  accordance  with  the  "Freedom  of 
Information  Act"  (5  U.S.C.  #552).  The  results  of  this  validation  apply 
only  to  the  computers,  operating  systems,  and  compiler  versions  identified 
in  this  report. 

The  organizations  represented  on  the  signature  page  of  this  report  do  not 
represent  or  warrant  that  all  statements  set  forth  in  this  report  are 
accurate  and  complete,  or  that  the  subject  implementation  has  no 
nonconformities  to  the  Ada  Standard  other  than  those  presented.  Copies  of 
this  report  are  available  to  the  public  from  the  AVF  which  performed  this 
validation  or  from: 

National  Technical  Information  Service 
5285  Port  Royal  Road 
Springfield  Vh  22161 

Questions  regarding  this  report  or  the  validation  test  results  should  be 
directed  to  the  AVF  which  performed  this  validation  or  to: 

Ada  Validation  Organization 

Computer  and  Software  Engineering  Division 

Institute  for  Defense  Analyses 

1801  North  Beauregard  Street 

Alexandria  VA  22311-1772 
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1.2  REFERENCES 

[Ada83]  Reference  Manual  for  the  Ada  Programminq  Language, 

ANSI/WIL-STD-1815A,  February  1983  and  ISO  8652-1987. 

[Pro90]  Ada  Compiler  Validation  Procedures,  Version  2.1,  Ada  Joint 
Program  Office,  August  1990. 

(UG89]  Ada  Compiler  Validation  Capability  User's  Guide,  21  June  1989. 


1.3  ACVC  TEST  CLASSES 

Coitpliance  of  Ada  implementations  is  tested  by  means  of  the  ACVC.  The  ACVC 
contains  a  collection  of  test  programs  structured  into  six  test  classes:  A, 
B,  C,  D,  E,  and  L.  The  first  letter  of  a  test  name  identifies  the  class  to 
vdiich  it  belongs.  Class  A,  C,  D,  and  E  tests  are  executable.  Class  B  and 
class  L  tests  are  expected  to  produce  errors  at  compile  time  and  link  time, 
respectively.  The  executable  tests  are  written  in  a  self-checking  manner 
and  produce  a  PASSED,  FAILED,  or  NOT  APPLICABLE  message  indicating  the 
result  when  they  are  executed.  Three  Ada  library  imits,  the  packages 
REPORT  and  SPPRT13,  and  the  procedure  CHECK  FILE  are  used  for  this  purpose. 
The  package  REPORT  also  provides  a  set  of  identity  functions  used  to  defeat 
some  compiler  optimizations  allowed  by  the  Ada  Standard  that  would 
circumvent  a  test  objective.  The  package  SPPRT13  is  used  by  many  tests  for 
Chapter  13  of  the  Ada  Standard.  The  procedure  CHECK_FILE  is  used  to  check 
the  contents  of  text  files  written  by  some  of  the  Class  C  tests  for  Chapter 
14  of  the  Ada  Standard.  The  operation  of  REPORT  and  CHECK_FILE  is  checked 
by  a  set  of  executable  tests.  If  these  units  are  not  operating  correctly, 
validation  testing  is  discontinued. 

Class  B  tests  check  that  a  compiler  detects  illegal  language  usage.  Class 
B  tests  are  not  executable.  Each  test  in  this  class  is  compiled  and  the 
resulting  compilation  listing  is  examined  to  verify  that  all  violations  of 
the  Ada  Standard  are  detected.  Some  of  the  class  B  tests  contain  legal  Ada 
code  which  must  not  be  flagged  illegal  by  the  compiler.  This  behavior  is 
also  verified. 

Class  L  tests  check  that  an  Ada  implementation  correctly  detects  violation 
of  the  Ada  Standard  involving  multiple,  separately  compiled  units.  Errors 
are  expected  at  link  time,  and  execution  is  attempted. 

In  some  tests  of  the  ACVC,  certain  macro  strings  have  to  be  replaced  by 
implementation-specific  values  —  for  example,  the  largest  integer.  A  list 
of  the  values  used  for  this  implementation  is  provided  in  Appendix  A.  In 
addition  to  these  anticipated  test  modifications,  additional  changes  may  be 
required  to  remove  unforeseen  conflicts  between  the  tests  and 
implementation-dependent  characteristics.  The  modifications  required  for 
this  implementation  are  described  in  section  2.3. 
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For  each  Ada  in^lementation,  a  customized  test  suite  is  produced  by  the 
AVF.  This  customization  consists  of  making  the  modifications  described  in 
the  preceding  paragraph,  removing  withdrawn  tests  (see  section  2.1),  and 
possibly  removing  some  inapplicable  tests  (see  section  2.2  and  [UG89]). 

In  order  to  pass  an  ACVC  an  Ada  implementation  must  process  each  test  of 
the  customized  test  suite  according  to  the  Ada  Standard. 


1.4  DEFINITION  OF  TERNS 

Ada  Compiler  The  software  and  any  needed  hardware  that  have  to  be  added 
to  a  given  host  and  target  computer  system  to  allow 
transformation  of  Ada  programs  into  executable  form  and 
execution  thereof. 

Ada  Compiler  The  means  for  testing  compliance  of  Ada  inplementations. 
Validation  consisting  of  the  test  suite,  the  support  programs,  the  ACVC 

Capability  user's  guide  and  the  template  for  the  validation  summary 

(ACVC)  report. 

Ada  An  Ada  compiler  with  its  host  computer  system  and  its 

Implementation  target  computer  system. 

Ada  Joint  The  part  of  the  certification  body  v>^ich  provides  policy  and 

Program  guidance  for  the  Ada  certification  system. 

Office  (AJPO) 

Ada  The  part  of  the  certification  body  which  carries  out  the 

Validation  procedures  required  to  establish  the  conpliance  of  an  Ada 
Facility  (AVF)  implementation. 

Ada  The  part  of  the  certification  body  that  provides  technical 

Validation  guidance  for  operations  of  the  Ada  certification  system. 

Organization 
(AVD) 

Compliance  of  The  ability  of  the  implementation  to  pass  an  ACVC  version, 
an  Ada 

Implementation 

Computer  A  functional  unit,  consisting  of  one  or  more  computers  and 

System  assoc’?ted  software,  that  us“s  common  storage  for  all  or 

part  of  a  program  and  also  for  all  or  part  of  the  data 
necessary  for  the  execution  of  the  program;  executes 
user-written  or  user-designated  programs;  performs 
user-designated  data  manipulation,  including  arithmetic 
operations  and  logic  operations;  and  that  can  execute 
programs  that  modify  themselves  during  execution.  A 
computer  system  may  be  a  stand-alone  unit  or  may  consist  of 
several  inter-connected  units. 
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Conformity 


Customer 


Declaration  of 
Conformance 


Host  Computer 
System 

Inapplicable 

test 

ISO 

LRM 


Operating 

System 


Target 

Computer 

System 

Validated  Ada 
Compiler 

Validated  Ada 
Implementation 

Validation 


Withdrawn 

test 


Fulfillment  by  a  product,  process,  or  service  of  all 
requirements  specified. 

An  individual  or  corporate  entity  v^o  enters  into  an 
agreement  with  an  AVF  which  specifies  the  terms  and 
conditions  for  AVF  services  (of  any  kind)  to  be  performed. 

A  formal  statement  from  a  customer  assuring  that  conformity 
is  realized  or  attainable  on  the  Ada  implementation  for 
which  validation  status  is  realized. 

A  computer  system  where  Ada  source  programs  are  transformed 
into  executable  form. 

A  test  that  contains  one  or  more  test  objectives  found  to  be 
irrelevant  for  the  given  Ada  inplementation. 

International  Organization  for  Standardization. 

The  Ada  standard,  or  Language  Reference  Manual,  published  as 
ANSI/MIL-STD-1815A-1983  and  ISO  8652-1987.  Citations  from 
the  LRM  take  the  form  "<section> . <subsection> : <paragraph> . " 

Software  that  controls  the  execution  of  programs  and  that 
provides  services  such  as  resource  allocation,  scheduling, 
input/output  control,  and  data  management.  Usually, 
operating  systems  are  predominantly  software,  but  partial  or 
complete  hardware  implementations  are  possible. 

A  computer  system  where  the  executable  form  of  Ada  programs 
are  executed. 


The  compiler  of  a  validated  Ada  implementation. 


An  Ada  implementation  that  has  been  validated  successfully 
either  by  AVF  testing  or  by  registration  [Pro90]. 

The  process  of  checking  the  conformity  of  an  Ada  compiler  to 
the  Ada  programming  language  and  of  issuing  a  certificate 
for  this  implementation. 

A  found  fo  incorroof  ?r!d  not.  ussd  in  conforinitv 

testing.  A  test  may  be  incorrect  because  it  has  an  invalid 
test  objective,  fails  to  meet  its  test  objective,  or 
contains  erroneous  or  illegal  use  of  the  Ada  programming 
language . 
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IMPLETIENTATION  DEPENDENCIES 


2 . 1  WITHDRAWN  TESTS 

The  following  tests  have  been  withdrawn  by  the  AVO.  The  rationale  for 
withdrawing  each  test  is  available  from  either  the  AVO  or  the  AVF.  The 
publication  date  for  this  list  of  withdrawn  tests  is  2  August  1991. 


E28005C 

B28006C 

C34006D 

C35508I 

C35508J 

C35508M 

C35508N 

C35702A 

C35702B 

B41308B 

C43004A 

C45114A 

C45346A 

C45612A 

C45612B 

C45612C 

C4565IA 

C46022A 

B49008A 

B49008B 

A74006A 

C74308A 

B83022B 

B83022H 

B83025B 

B83025D 

C83026A 

B83026B 

C83041A 

B85001L 

C86001F 

C94021A 

C97116A 

C980033 

BA2011A 

CB700LA 

CB7001B 

CB7004A 

CC1223A 

BC1226A 

CC1226B 

BC3009B 

BD1B02B 

BD1B06A 

AD1B08A 

BD2A02A 

CD2A21E 

CD2A23E 

CD2A32A 

CD2A4iA 

CD2A41E 

CD2A87A 

CD2B15C 

BD3006A 

BD4008A 

CD4022A 

CD4022D 

CD4024B 

CD4024C 

CD4024D 

CD403iA 

CD4051D 

CD5111A 

CD7004C 

ED7005D 

CD7005E 

AD7006A 

CD7006E 

AD720LA 

AD7201E 

CD7204B 

AD7206A 

BD8002A 

BDe004C 

CD9005A 

CD9005B 

CDA201E 

CE2107I 

CE2117A 

CE2117B 

CE2119B 

CE2205B 

CE2405A 

CE3111C 

CE3116A 

CE3118A 

CE3411B 

CE3412B 

CE3607B 

CE3607C 

CE3607D 

CE3812A 

CE3814A 

CE3902B 

C32203A 

2.2  INAPPLICABLE  TESTS 

A  test  is  inapplicable  if  it  contains  test  objectives  which  are  irrelevant 
for  a  given  Ada  implementation.  Reasons  for  a  test's  inapplicability  may 
be  supported  by  documents  issued  by  the  ISO  and  the  AJPO  known  as  Ada 
Commentaries  and  commonly  referenced  in  the  format  Al-ddddd.  For  this 
implementation,  the  following  tests  were  determined  to  be  inapplicable  for 
the  reasons  indicated;  references  to  Ada  Commentaries  are  included  as 
appropriate . 
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The  following  229  tests  have  floating-point  type  declarations 
requiring  more  digits  than  SYSTEM. MAX_blGITS: 


C24113J. .y  (16  tests) 
C35706J..y  (16  tests) 
C35708J..Y  (16  tests) 
C45241J..Y  (16  tests) 
C45421J. .Y  (16  tests) 
C45524J..Z  (16  tests) 
C45641J..Y  (16  tests) 


C35705J-.Y  (16  tests) 
C35707J..Y  (16  tests) 
C35802J..Z  (16  tests) 
C45321J..Y  (16  tests) 
C45521J..2  (16  tests) 
C45621J..2  (16  tests) 
C46012J..2  (16  tests) 


The  following  21  tests  check  for  the  predefined  type  SHORT_T’'’TEGER; 
for  this  implementation,  there  is  no  such  type: 


C35404B 

C45412B 

C45611B 

B52004E 

CD7101E 


B36105C 

C45502B 

C45613B 

C55B07B 


C45231B 

C45503B 

C45614B 

B55B09D 


C45304B 
C455C  :b 
C45631B 
B86001V 


C45411B 

C45504E 

C45632B 

C86006D 


The  following  20  tests  check  for  the  predefined  type  LONG_INTEGER;  for 
this  implementation,  there  is  no  such  type: 


C35404C 

C45502C 

C45613C 

C55B07A 


C45231C 

C45503C 

C45614C 

B55B09C 


C45304C 

C45504C 

C45631C 

B86001W 


C45411C 

C45504F 

C45632C 

C86006C 


C45412C 

C45611C 

B52004D 

CD7101F 


C35404D,  C45231D,  B86001X,  C86006E,  and  CD7101G  check  for  a  predefined 
integer  type  with  a  name  other  than  INTEGER,  LONG_lNTEGER,  or 
SHORT_INTEGER;  for  this  implementation,  there  is  no  such  type. 


C35713B,  C45423B,  B86001T,  and  C86006H  check  for  the  predefined  type 
SHORT_FLOAT;  for  this  implementation,  there  is  no  such  type, 

C35713C,  B86001U,  and  C86006G  check  for  the  predefined  type 
LONG_FLOAT;  for  this  inplementation,  there  is  no  such  type. 

C35713D  and  B86001Z  check  for  a  predefined  floating-point  type  with  a 
name  other  than  FLOAT,  LONG_FLOAT,  or  SHORT_FLQAT ;  for  this 
implementation,  there  is  no  such  type. 

C45531M..P  and  C45532M,.P  (8  tests)  check  fixed-point  operations  for 
types  that  require  a  SYSTEM. MAX_MANTISSA  of  47  or  greater;  for  this 
implementation,  MAX_MANTISSA  is  less  than  47. 

C45536A,  C46013B,  C46031B,  C46033B,  and  C46034B  contain  length  clauses 
that  specify  values  for  'SMALL  that  are  not  powers  of  two  or  ten;  this 
implementation  does  not  support  such  values  for  'SMALL. 
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C45624A. .B  (2  tests)  check  that  the  proper  exception  is  raised  if 
MACHINE_OVERFLCWS  is  FALSE  for  floating  point  types  and  the  results  of 
various  floating-point  operations  lie  outside  the  range  of  the  base 
type;  for  this  implementation,  MACHINE_OVERFLOWS  is  TRUE. 

B86001Y  uses  the  name  of  a  predefined  fixed-point  type  other  than  type 
DURATION;  for  this  inplementation,  there  is  no  such  type. 

CA2009C  and  CA2009F  check  vdiether  a  generic  unit  can  be  instantiated 
before  its  body  (and  any  of  its  subunits)  is  compiled;  this 
implementation  creates  a  dependence  on  generic  units  as  allowed  by 
Al-00408  and  AI-00506  such  that  the  conpilation  of  the  generic  unit 
bodies  makes  the  instantiating  units  obsolete.  (See  section  2.3.) 

LA3004A. .B,  EA3004C. .D,  and  CA3004E..F  (6  tests)  check  pragma  INLINE 
for  procedures  and  functions;  this  iitplementation  does  not  support 
pragma  INLINE. 

CD1009C  checks  whether  a  length  clause  can  specify  a  non-default  size 
for  a  floating-point  type;  this  implementation  does  not  support  such 
sizes. 

CD1009E  and  CD1009F  contain  length  clauses  that  effectively  require 
array  components  to  cross  storage  boundaries;  this  representation  is 
not  supported  by  the  implementation.  (See  Section  2.3.) 

CD2A53A  checks  operations  of  a  fixed-point  type  for  which  a  length 
clause  specifies  a  power-of-ten  TYPE' SMALL;  this  implementation  does 
not  support  decimal  'SMALLs.  (See  section  2.3.) 

CD2A84A,  CD2A84E,  CD2A84I..J  (2  tests),  and  CD2A840  use  length  clauses 
to  specify  non-default  sizes  for  access  types;  this  implementation 
does  not  support  such  sizes. 

BD8001A,  BD8003A,  BD8004A. .B  (2  tests),  and  AD801LA  use  machine  code 
insertions;  this  inplementation  provides  no  package  MACHINE_CODE . 

AE2101H,  EE2401D,  and  EE2401G  use  instantiations  of  package  DIRECT_IO 
with  unconstrained  array  types  and  record  types  with  discriminants 
without  defaults;  these  instantiations  are  rejected  by  this  compiler. 

The  tests  listed  in  the  following  table  check  that  USE_ERROR  is  raised 
if  the  given  file  operations  are  not  supported  for  the  given 
combination  of  mode  and  access  method;  this  inplementation  supports 
these  operations. 


Test 

File  Operation  Mode 

File  Access  Method 

CE2102D 

CREATE 

IN  FILE 

SEQUENTIAL  10 

CE2102E 

CREATE 

OUT  FILE 

SEQUENTIAL  10 

CE2102F 

CREATE 

INOUT  FILE 

DIRECT  10 

CE2102I 

CREATE 

IN  FILE 

DIRECT  10 
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CE2102J 

CREATE 

OUT  FILE 

DIRECT  10 

CE2102N 

OPEN 

IN  FILE 

SEQUENTIAL  10 

CE2102O 

RESET 

IN  FILE 

SEQUENTIAL  10 

CE2102P 

OPEN 

OUT  FILE 

SEQUENTIAL  10 

CE2102Q 

RESET 

OUT  FILE 

SEQUENTIAL  10 

CE2102R 

OPEN 

INOUT  FILE 

DIRECT  10 

CE2102S 

RESET 

INOUT  FILE 

DIRECT  10 

CE2102T 

OPEN 

IN  FILE 

DIRECT  10 

CE2102U 

RESET 

IN  FILE 

DIRECT  10 

CE2102V 

OPEN 

OUT  FILE 

DIRECT  10 

CE2102W 

RESET 

OUT  FILE 

DIRECT  10 

CE3102E 

CREATE 

IN_FILE 

TEXT  10 

CE3102F 

CE3102G 

RESET 

DELETE 

Any  Mode 

TEXT  10 

TEXT  10 

CE3102I 

CREATE 

OUT  FILE 

TEXT  10 

CE3102J 

OPEN 

IN  FILE 

TEXT  10 

CE3102K 

OPEN 

OUT  FILE 

TEXT  10 

The  following  16  tests  check  operations  on  sequential,  direct,  and 
text  files  when  multiple  internal  files  are  associated  with  the  same 
external  file  and  one  or  more  are  open  for  writing;  USE_ERROR  is 
raised  when  this  association  is  attempted. 


CE2107B.,E  CE2107G..H  CE2107L  CD2110B  CE2110D 
CE2111D  CE2111H  CE3111B  CE3111D..E  CE3114B 
CE3115A 


CE2203A  checks  that  WRITE  raises  USE_ERROR  if  the  capacity  of  an 
external  sequential  file  is  exceeded;  this  implementation  cannot 
restrict  file  capacity. 

CE2403A  checks  that  WRITE  raises  USE_ERROR  if  the  capacity  of  an 
external  direct  file  is  exceeded;  this  implementation  cannot  restrict 
file  capacity. 

CE3304A  checks  that  SET_LINE_LENGTH  and  SET_PAGE_LENGTH  raise 
USE_ERROR  if  they  specify  an  inappropriate  value  for  the  external 
file;  there  are  no  inappropriate  values  for  this  inplementation. 

CE3413B  checks  that  PAGE  raises  LAYOUT  ERROR  vdien  the  value  of  the 
page  num.ber  exceeds  COUNT' LAST;  for  this  Tmplem.entation,  the  value  of 
COUNT' LAST  is  greater  than  150000,  making  the  checking  of  this 
objective  impractical. 
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2.3  TEST  MODIFICATIONS 

Modifications  (see  section  1.3)  were  required  for  28  tests. 

The  following  tests  were  split  into  two  or  more  tests  because  this 
implementation  did  not  report  the  violations  of  the  Ada  Standard  in  the 
way  expected  by  the  original  tests. 

BAIOOIA  BA2001C  BA2001E  BA3006A  BA3006B 

BA3007B  BA3008A  BA3008B  BA3013A 

C52008B  was  graded  passed  by  Test  Modification  as  directed  by  the  AVO. 

This  test  uses  a  record  type  with  discriminants  with  defaults;  this  test 
also  has  array  components  vrfiose  length  depends  on  the  values  of  some 
discriminants  of  type  INTEGER.  On  compilation  of  the  type  declaration, 
this  inplementation  raises  NUMERIC_ERR0R  as  it  attempts  to  calculate  the 
maximum  possible  size  for  objects  of  the  type.  Although  this  behavior  is 
a  violation  of  the  Ada  standard,  the  AVO  ruled  that  the  inplementation  be 
accepted  for  validation  in  consideration  of  intended  changes  to  the 
standard  to  allow  for  compile-time  detection  of  run-time  error  conditions. 
The  test  was  modified  to  constrain  the  subtype  of  the  discriminants.  Line 
16  was  modified  to  declare  a  constrained  subtype  of  INTEGER,  and 
discriminant  declarations  in  lines  17  and  25  were  modified  to  use  that 
subtype;  the  lines  are  given  below: 

16  SUBTYPE  SUBINT  IS  INTEGER  RANGE  -128  ..  127; 

17  TYPE  REC1(D1,D2  :  SUBINT)  IS 

25  TYPE  REC2(Dl,D2,D3,D4  :  SUBINT  :=  0)  IS 


CA2009C  and  CA2009F  were  graded  inapplicable  by  Evaluation  Modification  as 
directed  by  the  AVO.  These  tests  contain  instantiations  of  a  generic  unit 
prior  to  the  compilation  of  that  unit's  body;  as  allowed  by  AI-00408  and 
AI-00506,  the  conpilation  of  the  generic  unit  bodies  makes  the  compilation 
unit  that  contains  the  instantiations  obsolete. 

BC3204C  and  BC3205D  were  graded  passed  by  Processing  Modification  as 
directed  by  the  AVO.  These  tests  check  that  instantiations  of  generic 
units  with  unconstrained  types  as  generic  actual  parameters  are  illegal  if 
the  generic  bodies  contain  uses  of  the  types  that  require  a  constraint. 
However,  the  generic  hxxiies  are  conpiled  after  the  units  that  contain  the 
instantiations,  and  this  implementation  creates  a  dependence  of  the 
instantiating  units  on  the  generic  units  as  allowed  by  AI-00408  and 
AI-00506  such  that  the  compilation  of  the  generic  bodies  makes  the 
instantiating  units  obsolete — no  errors  are  detected.  The  processing  of 
these  tests  was  modified  by  re-compiling  the  obsolete  units;  all  intended 
errors  were  then  detected  by  the  compiler. 

CD1009A,  CD1009I,  CD1C03A,  CD2A21A,  CD2A21B,  CD2A21C,  CD2A23A,  CD2A23B, 
CD2A24A,  CD2A31A,  CD2A31B,  CD2A31C  were  graded  passed  Evaluation 
Modification  as  directed  by  the  AVO.  These  tests  use  instantiations  of 
the  support  procedure  LENGTH_CHECK ,  which  uses  Unchecked_Conversion 
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according  to  the  interpretation  given  in  AI-00590.  The  AVO  ruled  that 
this  interpretation  is  not  binding  under  ACVC  1.11;  the  tests  are  ruled  to 
be  passed  if  they  produce  Failed  messages  only  from  the  instances  of 
LENGTH_CHECK — i.e,  the  allowed  Report. Failed  messages  have  the  general 
form: 

"  *  CHECK  ON  REPRESENTATION  FOR  <TYPE_ID>  FAILED." 

CD1009E  and  CD1009F  were  graded  inapplicable  by  Evaluation  Modification  as 
directed  by  the  AVO.  Tests  use  length  clauses  for  array  types  with  type 
INTEGER  components  that  specifiy  the  size  to  be  'LENGTH  *  INTEGER'SIZE; 
for  this  inplementation  INTEGER'SIZE  is  46  (bits)  and  SYSTEM. STORAGE_UNIT 
is  64  (bits) — one  machine  word — ;  hence,  the  specified  representation 
cannot  be  met  without  some  of  the  array  components  crossing  word 
boundaries,  which  this  implementation  does  not  support. 
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PROCESSING  INFORMATION 


3 . 1  TESTING  ENVIRONMENT 

The  Ada  implementation  tested  in  this  validation  effort  is  described 
adequately  by  the  information  given  in  the  initial  pages  of  this  report. 

For  technical  and  sales  information  about  this  Ada  implementation,  contact: 

Sylvia  Crain 
Cray  Research,  inc 
500  Montezuma,  Suite  118 
Santa  Fe  NM  87501 


Testing  of  this  Ada  inplementation  was  conducted  at  the  customer's  site  by 
a  validation  team  from  the  AVF. 


3.2  SUMMARY  OF  TEST  RESULTS 

An  Ada  Implementation  passes  a  given  ACVC  version  if  it  processes  each  test 
of  the  customized  test  suite  in  accordance  with  the  Ada  Programming 
Language  Standard,  v^ether  the  test  is  applicable  or  inappliceJsle; 
otherwise,  the  Ada  Inplementation  fails  the  ACVC  [Pro90]. 

For  all  processed  tests  (inapplicable  and  applicable),  a  result  was 
obtained  that  conforms  to  the  Ada  Programming  Language  Standard, 

The  list  of  items  below  gives  the  number  of  AO'C  tests  in  various 
categories.  All  tests  were  processed,  except  those  that  were  withdrawn 
because  of  test  errors  (item  b;  see  section  2.1),  those  that  require  a 
floating-point  precision  that  exceeds  the  implementation's  maximum 
precision  (item  e;  see  section  2.2),  and  those  that  depend  on  the  support 
of  a  file  system  —  if  none  is  supported  (item  d).  All  tests  passed, 
except  those  that  are  listed  in  sections  2.1  and  2.2  (counted  in  items  b 
cind  f ,  below) . 
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a)  Total  Number  of  i^plicable  Tests 

b)  Total  Number  of  Withdrawn  Tests 

c)  Processed  Inapplicable  Tests 

d)  Non-Processed  I/O  Tests 

e)  Non-Processed  Floating-Point 

Precision  Tests 

f)  Total  Number  of  Inapplicable  Tests 

g)  Total  Number  of  Tests  for  ACVC  1.11 


3709 

95 

137 

0 

229 

366 

( c+d+e ) 

4170 

( a+b+f ) 

3 . 3  TEST  EXECUTION 

A  magnetic  tape  containing  the  customized  test  suite  (see  section  1.3)  was 
taken  on-site  by  the  validation  team  for  processing.  The  contents  of  the 
magnetic  tape  were  loaded  directly  onto  the  host  computer. 


After  the  test  files  were  loaded  onto  the  host  computer,  the  full  set  of 
tests  was  processed  by  the  Ada  implementation. 


Testing  was  performed  using  command  scripts  provided  by  the  customer  and 
reviewed  by  the  validation  team.  See  Appendix  B  for  a  conplete  listing  of 
the  processing  options  for  this  implementation. 


The  following  options  were  used  in  testing  this  implementation: 
For  B  tests: 

ada  -L  <test_name> 

option  description 

ada  invoke  Ada  compiler 

-L  generate  interspersed  source-error  listing 

<test  name>  name  of  Ada  source  file  to  be  conpiled 


For  Non-B  single-file  tests: 
ada-m  <main_unit>  <test_name> 
option  description 


ada 

-m 

<main_unit> 
<test  name> 


invoke  Ada  compiler 

produce  executable  code  for  <main_unit> 
name  of  main  Ada  compilation  unit 
name  of  Ada  source  file  to  be  compiled 
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For  Non-B  multi-file  tests: 
ada-m  <test_name> 

ada-m  <test_name>  (repeated  for  each  file) 
aid  <main_unit> 

option  description 


ada 

<test_name> 

aid 

<main  unit> 


invoke  Ada  coirpiler 

name  of  Ada  source  file  to  be  compiled 
invoke  linker 

name  of  main  Ada  compilation  unit 


Test  output,  compiler  and  linker  listings,  and  job  logs  were  captured  on 
magnetic  tape  and  archived  at  the  AVF.  The  listings  examined  on-site  by 
the  validation  team  were  also  archived. 
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MACRO  PARAMETERS 


This  appendix  contains  the  macro  parameters  used  for  customizing  the  ACVC. 
The  meaning  and  purpose  of  these  parameters  are  explained  in  [UG89].  The 
parameter  values  are  presented  in  two  tables.  The  first  table  lists  the 
values  that  are  defined  in  terms  of  the  maximum  input-line  length,  which  is 
the  value  for  $MAX_IN_LEN — also  listed  here.  These  values  are  expressed 
here  as  Ada  string  aggregates,  where  "V"  represents  the  maximum  input-line 
length. 


Macro  Parameter 


Macro  Value 


$MAX_IN_LEN 

200  —  Value  of 

V 

$BIG_ID1 

(1..V-1  =>  'A', 

V  =>  '1' 

$BIG_ID2 

(1..V-1  =>  'A', 

V  =>  '2' 

$BIG_ID3 

(1. .V/2  =>  'A' ) 
(1. .V-l-V/2 

&  '3'  & 
=>  'A' ) 

$BIG_ID4 

(1. .V/2  =>  ’K' ) 
(1.. V-l-V/2 

&  '4'  & 
=>  'A') 

$BIG_INT_LIT 

(1. .V-3  =>  '0'  ) 

&  "298" 

$BIG_REAL_LIT 

(1..V-5  =>  'OM 

&  "690.0 

$BIG  STFT^'Gl 

•  'A' )  & 

$EIG_STRING2 

&  (1.. V-l-V/2  =>  'A' 

$BLANKS 

(1. .V-20  =>  '  ' ) 

1 

$MAX  LEN  INT  BASED 

LITERAL 

& 


"2:"  &  (1. .V-5  =>  '0'  )  &  "11:" 
$MAX  LEN  REAL  BASED  LITERM. 


"16:"  &  (1..V-7  =>  '0' )  &  "F.E: 
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$MAX_STRING_LITERAL  &  (1..V-2  =>  'A')  & 

The  following  table  lists  all  of  the  other  macro  parameters  and  their 
respective  values. 

Macro  Parameter  Macro  Value 

$ACC_SI2E  64 

$ALIGNMENT  1 

$COUNT_LAST  16#7FFFFFFE# 

$DEFAULT_MEM_SIZE  ( 2**32 )-l 
$DEFAULT_STOR_UNIT  64 

$DEFAULT_SYS_NAr4E  CRAY_2 

$DELTA_COC  2#1.0#E-45 

$ENTRY_ADDRESS  16#40# 

SENTRY  _ADDRESS1  16#80*t 

$ENTRY_ADDRESS2  16#100# 

$FIELD__LAST  1000 

$FILE_TERMINATOR  ' ' 

$FIXED_NAME  NO_SUCH_TYPE 

$FLOAT_NAME  NO_SUCH_TYPE 

$FORM_STRING 

$  F0RM_STRING2  "CANN0T_RESTRI CT_FI LE_CAPACITY" 

$GREATER_THAN_DURATION 

100  000-0 

$GREATER_THAN_DURATION_BASE_LAST 

131_073.0 

$GREATER_THAN_FLOAT_BASE_LAST 

2.8E+2465 

$GREATER_THAN_FLQAT_SAFE_LARGE 

2.8E+2465 
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$GREATER_THAN_SHORT_FLOAT_SAFE_LARGE 

NO_SUCH_TYPE 

$HIGH_PRIORITY  63 

$ I LLEGAL_EXTERNAL_FI LE_NAMEl 

BADCHAR*'/% 

$ I LLEGAL_EXTERNAL_FI LE_NAME2 

/NONAME/^IRECTORY 

$ INAPPROPRIATE_LINE_LENGTH 

-1 

$  INAPPROPRIATE_PAGE_LENGTH 

-1 

$INCLUDE_PRAGMA1  PRAGT'IA  INCLUDE  (  "A28006D1  .TST"  ) 

$INCLUDE_PRAGMA2  PRAGMA  INCLUDE  ( '’B28006E1  .TST"  ) 

$INTEGER_FIRST  -35184372088832 

$INTEGER_LAST  35184372088831 

$IOTEGER_LAST_PLUS_1  35184372088832 

$INTERFACE_LANGUAGE  C 

$LESS_THAN_DURATION  -100_000.0 

$LESS_THAN_DURATION_BASE_FIRST 

-131_073.0 

$LINE_TERMINATOR  ASCII. LF 

$LCW_PRIORITy  0 

$MACHINE_CODE_STATEMENT 

NULL; 

$MACHINE_CODE_TYPE  NO_SUCH_TYPE 

$MANTISSa_DOC  45 

$MAX_DIGITS  13 

$MAX_INT  35184372086831 

$MAa_INT_PLUS_1  35184372088832 

$MIN  INT  -35184372088832 

NO_SUCH_TYPE_AVAI LABLE 
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$NAME_LIST  CRAY_2 

$NAME_SPECIFICATIONl  /tinp/X2120A 

$NAME_SPECIFICATION2  /tmp/X2120B 

$NAME_SPECIFICATION3  /tffp/X3119A 

$NEG_BASED_INT  16#3FFFFFFFFFFE# 

$NEW_MEM_SI2E  16#FFFFFFFF# 

$NEW_STOR_UNIT  64 

$NEW_SYS_NAME  CRAY_2 

$PAGE_TERMINATOR  ASCI I . FF 

$RECORD_DEFINITION  RECORD  NULL;  END  RECORD; 

$RECORD_NAME  NO_SUCH_MACHINE_CODE_TYPE 

$TASK_SI2E  64 

$TASK_STORAGE_SIZE  4096 

$TICK  IO.OE-3 

$VARIABLE_ADDRESS  16#0020# 

$VARIABLE_ADDRESS1  16#0024# 

$VARIABLE_ADDRESS2  16#0028# 

$YOUR  PRAGMA  PRESERVE  LAYOUT 
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COMPILATION  SYSTEM  OPTIONS 


The  compiler  options  of  this  Ada  implementation,  as  described  in  this 
Appendix,  are  provided  by  the  customer.  Unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  compiler  documentation  and 
not  to  this  report. 
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Using  the  Compiler 


You  may  also  want  to  compile  a  series  of  source  files  by  using  an 
input  list  file.  See  “Input  file:  input_spec”  page  98,  for  more 
information. 


The  ada  command 

3.3 


After  you  have  created  a  working  library,  as  described  in 
“Creating  sublibraries:  the  acr  command,”  page  33,  you  are 
ready  to  use  the  Cray  Ada  compiler. 

The  ada  command  invokes  the  compiler.  Unless  you  specify 
otherwise,  the  front  end,  middle  pass,  and  code  generator  are 
executed  each  time  the  compiler  is  invoked.  Specifying  the  -e 
option  invokes  only  the  firont  end. 

The  general  command  format  for  invoking  the  Ada  compiler 
when  the  ~e  argument  is  used  is  as  follows: 


-1  libname 

ada  ,  t-el  [-E  value]  [-v]  [-L]  [~T  opt  I  ]  t-k] 

-t  subub[,sublib...] 


[  -a  file  ]  input _spec 


The  general  command  format  for  invoking  the  Ada  compiler 
when  the  -e  argument  is  not  used  is  as  follows: 


-1  libname 

ada  l-E  txilue]  [-v]  [-L]  [-T  opt  [  ,opt...l  ]  [-a.  file] 

-t  sublibl  ,sublib...] 

[-X]  [-k]  t-d]  [-ikey]  [-j]  l-K)  [-u  ^...  ]  [-0  key  [  Jiey-]  iaopi-Opts]  ] 

[  - s  ]  [  -  f  size  1  [  -m  unit  [ aldjopts  ]  ]  [  -S  key )  input  jspec 


ada  command 
options 


The  following  table  shows  the  ada  command-bne  arguments 
grouped  according  to  function. 
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Table  13.  ada  command  arguments 


Argument 

Action 

Page 

Library  argtxments: 

-1  libname 

Uses  Libname  as  the  library  file.  This  option  is  not  used 
with -t.  Default  is  liblst.alb. 

82 

-t  sublib  [ ,  sublib...  ] 

Specifies  temporary  list  of  subUbraries.  This  option  is 
not  used  with  -1.  Default  is  no  list. 

82 

Execution  control  arguments; 

-E  value 

Aborts  compilation  after  value  number  of  errors.  Default 
is  999. 

82 

-m  unit  [aldjjpts] 

Specifies  the  main  program  unit  for  compilation. 

Without  this  option,  no  executable  code  is  generated. 

You  can  specify  arguments  firom  the  aid  command  in 
conjunction  with  this  argument. 

83 

-V 

Displays  progress  messages  during  compilation.  Default 
is  no  display  of  progress  messages. 

84 

Output  control  arguments; 

-e 

Runs  only  the  fi'ont-end  compiler  pass.  Default  runs 
firont-end  pass,  middle  pass,  and  code  generator. 

85 

-d 

Generates  source-level  debugging  mfonnation.  Default 
does  not  include  debug  information. 

85 

-  f  size 

Specifies  alternate  frame  package  size.  Default  is  18 
words.  (CRAY-2  systems  only.) 

86 

-  i  key 

Suppresses  checks  and  source  information;  default  is  to 
store  source  Line  information  in  the  object  code. 

86 

-k 

Retains  low  form  and  high  form  of  secondary  units; 
default  is  to  discard  them. 

87 

-0  key  [,A’cyl 
[aopt  s>pts] 

Optunizes  object  code.  You  can  specify  arguments  from 
the  aopt  command  in  conjunction  with  this  argument. 

See  the  -0  argument  documentation  for  information  on 

88 

keys. 
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Thble  13.  ada  command  arguments 
(continued) 

Argument 

Action 

Page 

-s 

Controls  sharing  of  frame  packages.  By  defavdt,  there  is 

1  frame  package  for  each  routine  and  noncalling  routines 
share  a  package.  (CRAY-2  systems  only.) 

91 

-X 

Puts  Profiler  information  into  generated  code;  default 
does  not  generate  execution-profile  code. 

91 

Listing  control  arguments: 

-a  file 

Specifies  alternate  list  files;  by  default  writes  to  file .  1. 

91 

-j 

Joins  errors  with  source  code. 

92 

-K 

Keeps  source  file  in  library. 

92 

-L 

Generates  interspersed  source-error  listing.  Default 
does  not. 

92 

-S  key 

Generates  source/assembly  listing.  Default  does  not. 

93 

-T  opt[,opt,..] 

Controls  terminal  display.  By  default  it  does  not  include 
vectorizer  messages;  it  prints  warning-level  messages, 
and  it  puts  one  line  of  code  around  error  messages. 

95 

-u  key 

Updates  the  working  sublibrary.  Default  updates  the 
library  after  aU  umts  within  a  single  source  file  compile 
successfully. 

98 

Required  argument: 

input  jspec 

One  or  more  Ada  source  files  or  an  input  list  file  to  be 
compiled. 

98 

The  following  subsections  describe  the  options  according  to  the 
preceding  functional  groups. 
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Library  control: 
-1  libname  and 
-t  sublib 
3.4.1 


Execution  control:  -E, 

-m,  and  -v 

3.4.2 

Setting  an  error  count  for 
aborting  compilation: 

-E  value 
3.4.2. 1 


Compilation  reqtiires  the  presence  of  an  Ada  program  library  to 
hold  the  results  of  compilation  and  to  resolve  compilation  unit 
and  compilation  order  dependencies  required  by  the  Ada 
language.  As  a  default,  the  compiler  uses  the  library  list  file 
named  liblst .  alb  in  the  current  working  directory.  The 
library  list  file  lists  the  names  of  the  sublibraries  the  compiler  is 
to  use  for  the  compilation. 

The  compiler  places  the  compilation  unit  information  and  the 
results  of  compilation  in  the  first  sublibraiy  listed  in  the  library 
file.  This  subhbraiy,  called  the  working  sublibrary,  must  exist 
before  compilation  actually  begins;  it  is  created  with  the  acr 
command.  If  the  compiler  cannot  find  the  specified  library,  it 
issues  an  error  message. 

A  library  file  other  than  the  default  may  also  be  specified  by 
using  the  -1  or  -t  argument  with  the  ada  command.  The 
-1  libname  argument  allows  you  to  specify  an  alternate  library 
file.  The  -t  sublib  argument  allows  you  to  specify  a  list  of 
sublibraries  and  ignore  the  library  file. 

For  more  information  on  these  arguments,  see  the  Cray  Ada 
Environment,  Volume  2:  Programming  Guide,  publication 
SR-3082,  and  “Creating  sublibraries:  the  acr  command,”  page 
33. 


The  following  subsections  describe  the  ada  command  line 
arguments  that  control  executioix. 


The  compiler  maintains  separate  counts  of  all  syntactic  errors, 
semantic  errors,  and  warning  messages  detected  during  the  first 
compilation  pass. 

A  large  number  of  errors  generally  indicates  that  errors  in 
statements  appearing  earlier  in  the  unit  have  cascaded  through 
the  rest  of  the  code.  A  classic  example  is  an  error  occurring  in  a 
statement  that  declares  a  type.  This  causes  subsequent 
declarations  that  use  the  t3q)e  to  be  in  error,  which  further 
causes  all  statements  using  the  declared  objects  to  be  in  error. 

In  such  a  situation,  only  the  first  error  message  is  useful. 
Aborting  the  compilation  at  an  early  stage  is  often,  therefore,  to 
your  advantage.  The  -E  argument  allows  you  to  do  just  that. 


COMPILATION  SYSTEM  OPTIONS 


LINKER  OPTIONS 

The  linker  options  of  this  Ada  implementation,  as  described  in  this 
/^pendix,  are  provided  by  the  customer.  Unless  specifically  noted 
otherwise,  references  in  this  appendix  are  to  linker  documentation  and  not 
to  this  report. 
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Figure  6.  Converting  Ada  source  into  an  executable  module 


Using  the  Ada 
linker:  the  aid 
command 

4.1 


In  the  simplest  case,  the  aid  command  takes  one  argument  (the 
name  of  the  main  unit  of  the  Ada  program  structxire  that  is  to  be 
linked)  and  produces  one  output  file  (the  executable  file 
produced  by  the  linking  process).  The  executable  file  is  placed  in 
the  directory  in  which  aid  was  executed,  imder  the  name  of  the 
main  imit  \ised  as  the  argument  to  aid.  The  main  unit  must  be 
included  in  the  working  sublibrary  at  link  time.  For  example, 
the  following  command  links  the  object  modules  of  all  the  tmits 
in  the  extended  family  of  the  imit  main; 

aid  main 

The  name  of  the  resulting  executable  file  is  main;  therefore,  if  a 
file  named  main  exists  before  this  command  line  is  executed, 
that  file  will  be  overwritten. 

Main  programs  being  prepared  for  use  with  the  debugger  must 
be  linked  using  the  aid  command’s  -d  option,  so  that  global 
S3anbol  table  information  is  generated. 

When  using  the  aid  command,  the  body  of  the  main  unit  to  be 
linked  must  be  included  in  the  working  sublibrary  at  link  time. 

For  further  information  on  the  -m  option  of  the  ada  command, 
see  "Compiling  a  main  program:  -m  unit[aldj3pts]”  page  83. 
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Command  syntax  The  valid  sjTitaxes  of  the  aid  command  are  as  follows: 

4.1.1 


Table  14.  aid  command  options 


Option 

Action 

Default 

Library  options: 

-1  libname 

Specifies  name  of  library  file.  Not  used  with 
-t. 

liblst .alb 

-t  sublib  [,...] 

Specifies  temporary  list  of  sublibraries.  Not 
used  with  -1. 

None 

Command 

options: 

-b 

Makes  loader  quit  after  creating  elaboration 
code  and  linking  order. 

Creates  executable 
modtile 

-o  file 

Specifies  name  of  executable  file. 

Name  of  main  unit 

-d 

Includes  debugging  information;  specify  if  you 
intend  to  use  the  debugger. 

None 

-V 

Makes  linker  send  messages  to  stdout  for 
each  phase  of  linking 

No  messages 

-X 

Reports  unhandled  exceptions  in  tasks. 

No  reporting  of 
unhandled  exceptions 

-X 

Instructs  binder  to  link  in  the  profiler 
run-time  support  routines. 

No  profiler  support 
linked  in 
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Table  14.  aid  command  options 
(continued) 

Option 

Action 

Default 

-P  'string' 

Passes  a  string  of  SEGLDR  options  to 

SEGLDR. 

No  string  passed  to 
SEGLDR 

-P 

obj[  ,obj. . .  ] 

Passes  name  of  foreign  object  files  to  SEGLDR 
to  link  with  the  Ada  unit. 

Nothing  passed  to 
SEGLDR 

-Y  size 

Specifies  amount  of  space  allocated  for  each 
task. 

4000  words 

-V 

Displa}^  progress  messages  dxiring- 
compilation. 

No  progress  messages 
displayed 

-S  key 

Generates  source/assembly  listing 

No  source/assembly 
listing  generated 

Required  option; 

mainjunit 

Name  of  the  main  Ada  program  unit  to  be 
linked.  The  mainjunit  name  must  match  the 
name  of  the  main  unit  specified  in  the  Ada 
library.  If  the  mainjunit  name  is  longer  than 

14  characters,  aid  truncates  the  name  to  14 
characters.  If  another  file  exists  with  a  name 
equal  to  the  14-character  mainjunit  name, 
the  other  file  is  overwritten  because  of  the 
14-character  UNICOS  5.1  naming  restrictions. 

In  UNICOS  6.0  ,  the  parameters  are  255 
characters. 

None 

Command  options  The  following  subsections  describe  the  aid  command  options. 

4.1.2 


Creating  only  elaboration 

code:  -b 

4.1.2.1 


The  -b  option  causes  the  Ada  loader  to  terminate  after  it  has 
created  the  elaboration  code  and  linking  order,  before  it  invokes 
SEGLDR.  This  provides  more  control  over  the  linking  process  by 
letting  the  user  modify  the  link  order  and  add  SEGLDR 
directives.  The  aid  command  generates  two  files;  the  first  file, 
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named  <unit> .  o,  is  in  the  working  object  directory  and  contains 
elaboration  code.  The  second  file,  named  unit .  Ink,  is  a  SEGLDR 
link  script.  A  very  simple  link  script  generated  fimm  the  test 
program  add .  ada  is  shown  in  the  following  example: 


#  1  /bin/csh  -f 

cat  >  /tmp/$$SEGDIR  «  %%DIRECTIVES%% 
BIN=/usr/lib/ada/libada.a 

BIN=/flyer/cri/a/svc /welcome/work. obj/addM.o 
B IN= / us r / 1 ib / ada / mint ime . ob j /_s t andardS . o 
B IN= / us r / 1 ib / ada / runt ime . ob j / cgs_Bi 4 22 t 4 S . o 
BIN=/usr/lib/ada/runtiine.obj/cgs_eBi422t4  .o 
BIN= /usr  / 1  ib/ ada  /  mint  ime .  ob  j  /  rsp_Bi  4  24neS .  o 
B IN= / us r / 1 ib / ada / runt ime . ob j / rsp_hBi4 24ne . o 
BIN=/usr/lib/ada /runt ime. obj/cgs_Bi423yeS.o 
BIN= /usr/ lib/ ada/ runt ime. obj/cgs_Bi4237aS.o 
BIN=/usr/lib/ada/mintime. obj/cgs_dBi4237a.o 
BIN= /usr /lib/ ada/ runt ime. obj/cgsS.o 
BIN=/usr/ lib/ ada/ runt ime.obj/cgs.o 
BIN=/usr/lib/ ada / runt ime . ob j / cgs_eB i 4  23y e . o 
B IN= / us r / 1 i b / ada / runt ime . ob j / r sp_vec t orS . o 
BIN=/usr/lib/ada/runtime.obj/unchBi4z0ssS.o 
BIN=/usr/lib/ada/runtime.obj/uncheBi4z0ss.o 
B IN= / us r / 1 ib / ada / runt ime . ob j / sy s t emS . o 
B IN= / us r / 1 ib/ ada / mint ime . ob j / envS . o 
BIN=/usr/lib/ada/runtime. obj/td_raBi4z392S.o 
B IN= / us r / 1 ib / ada / runt ime , ob j / td_meBi4 z3 92 . o 
BIN=/usr/lib/ada/runtime.obj/td_aBi4z4grS.o 
B  IN=  /  us  r  / 1  i  b  /  ada  /  mm  t  ime ,  ob  j  / 1  d_adB  i  4  z  4  gr .  o 
BIN=/f Iyer/ cri/ a/ SVC /welcome/work. obj /stuffS. o 
BIN=/flyer/cri/a/svc/welc  ome / work . obj / s  tuf  f . o 
BIN=/ flyer /cri /a /SVC /welcome/work. obj /addS.o 
BIN=/flyer/cri/a/svc /welcome /work . obj /add . o 
%%DIRECTIVES%% 

segldr  -s  -o  add  /tmp/SSSEGDIR 
set  tmp  =  Sstatus 
/bin/rm  -f  /tmp/$$SEGDIR 
exit  $tmp 


One  useful  SEGLDR  directive  to  add  to  the  SEGLDR  link  script 
file  is  the  MAP=FULL  directive  for  obtaining  a  load  map.  This  is 
quite  useful  when  debugging  at  the  machine-code  level.  If  you 
use  this  directive,  add  it  to  the  link  script  file  immediately  before 
the  line  containing  %%DIRECTIVES%%.  The  link  script  is  then 
executed  to  invoke  SEGLDR  and  produce  the  executable 
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Specifying  the  name  of  the 
output  file:  -o  file 
4. 1.2.2 


Specifying  debugging 
information:  -d 

4. 1.2.3 

Displaying  progress 
messages:  -v 

4. 1.2.4 


Binding  and  linking  for 
profiling:  -x 
4. 1.2.5 


program.  Notice  that  the  -P  option  can  also  be  used  to  modify 
the  segldr  command  line.  Specifying  -P  '-M  add. map,  f'  has 
the  same  effect  as  editing  the  hnk  script  to  add  MAP  directives. 
For  more  information,  see  “Passing  options  to  the  linker:  -P,” 
page  111. 

Be  careful  when  editing  the  link  script,  or  you  may  lose  the 
inherent  integrity  that  Ada  provides.  For  example,  after  editing 
a  link  script,  it  is  possible  to  load  object  code  that  the  aid  binder 
would  report  as  obsolete. 


The  -o  file  option  lets  you  specify  the  name  of  the  executable 
ftle  produced  by  the  loader.  For  example,  the  following  command 
directs  the  loader  to  put  the  executable  module  in  file  output: 

aid  -o  output  main 

If  the  file  name  is  longer  than  14  characters,  aid  truncates  the 
name  to  14  characters.  If  another  file  exists  with  a  name  equal 
to  the  14-character  file  name,  the  other  file  is  overwritten.  This 
is  due  to  14-character  naming  restrictions  in  UNICOS. 


The  -d  option  lets  you  instruct  the  linker  to  produce  and  save 
debugging  information  about  the  code  it  generates. 


This  option  causes  the  linker  to  send  messages  to  standard 
output  as  each  phase  of  the  linking  process  begins.  The 
messages  include  the  names  of  the  library  list  file  and  working 
sublibrary,  the  binding  name,  and  the  executable  name. 


This  option  is  used  for  units  that  have  been  compiled  with  the  -x 
option.  Using  the  ada  commands’  -x  option  causes  the  code 
generator  to  include,  in  the  object,  special  code  that  is  later  used 
to  provide  a  profile  of  the  programs’  execution. 

If  'X  is  used  with  ada,  it  must  be  used  with  aid  as  well.  The  -x 
option  of  aid  instructs  the  binder  to  link  in  the  profiler  run-time 
support  routines.  These  routines  record  the  profiling  data  in 
memory  during  program  execution  and  then  write  the  data  to 
files  as  part  of  the  program  termination.  The  files  can  then  be 
used  to  produce  a  listing  showing  how  the  program  executes. 

For  more  information  on  the  Ada  Profiler,  see  “Ada  Profiler,” 
page  303. 
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Passing  arguments  to  the 
linker:  -p 
4. 1.2.6 


Passing  options  to  the 

linker:  -P 

4.1.2.7 


This  option  lets  you  pass  a  string  argument  directly  to  SEGUDR. 
It  is  most  commonly  used  to  import  objects  or  libraries  produced 
from  languages  other  than  Ada  into  an  Ada  main  program.  In 
its  simplest  form,  the  option  is  used  as  follows: 

aid  -p  'get_arg.o'  show_arguinent 

In  this  example,  get_arg-  o  could  be  an  object  file  produced  by 
the  C  compiler.  The  UNICOS  segldr  command  is  invoked  with 
the  string  '  gec_arg .  o '  appended  to  its  command  line.  In  some 
cases,  there  may  be  multiple  object  or  library  files  to  be  passed 
to  SEGLDR  for  linkage  with  an  Ada  main  unit  In  these  cases,  a 
SEGLDR  directive  file  can  be  used.  See  the  Segment  Looter 
(SEGLDR)  and  Id  Reference  Manual ^  publication  SR-0066,  for 
more  detailed  information  about  SEGLDR  and  its  directive  files. 

For  further  information  about  how  you  can  directly  reference 
SEGLDR,  see  “Creating  only  elaboration  code:  -b,"  page  108, 
which  describes  how  to  specify  a  directives  file  for  SEGLDR. 


Note 

SEGLDR  automatically  searches  all  standard  system  libraries,  so 
there  is  no  need  to  explicitly  specify  such  libraries  with  aid . 


The  -P  option  lets  you  pass  a  string  of  SEGLDR  options  from  the 
aid  command  line  directly  to  SEGLDR.  The  argument  to  the  -P 
option  must  be  enclosed  in  either  double  or  single  quotation 
marks.  You  can  use  this  option  to  reference  an  alternate  set  of 
libraries  for  the  linkage. 

For  example,  the  following  command  line  directs  the  linker  to 
pass  option  string  -L  /lib/xlib  to  SEGLDR,  causing  SEGLDR 
to  look  for  libraries  for  the  linkage  in  directory  /  lib/xlib, 
rather  than  the  default  system  directories: 


aid  -V  -P  '-L  /lib/xlib*  welcome 
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Caution 

With  the  -P  and  -p  options,  you  can  specify  SEGLDR  options  anH 
directives  that  do  not  maka  sense  to  use  with  Ada  or  that  conflict 
with  the  SEGLDH  options  automatically  set  by  aid.  For 
example,  specifying  alternate  entry  points  must  be  done  with 
extreme  care  in  Ada. 


Reporting  of  unhandled 
exceptions:  -X 
4.L2.8 


When  this  report  option  is  used,  unhandled  exceptions  that  occur 
in  a  task  are  reported  to  you.  By  default,  these  exceptions  are 
not  reported,  and  the  task  terminates  silently.  The  output 
generated  by  this  option  is  similar  to  that  displayed  when  an 
unhandled  exception  occurs  in  a  main  program. 


Altering  stack  size:  -Y  size 
4.L2.9 

executing  task  at  run  tune.  You  can  use  the  -Y  size  option  to 
specify  the  amount  of  space  allocated  for  each  task.  For  size, 
specify  the  stack  size,  in  words.  A  representation  specification 
for  task'  STORAG£_SIZE  overrides  the  value  supplied  with  this 
option. 


In  the  absence  of  a  representation  specification  for  task 
STORAGE^SIZE,  4000  words  of  storage  are  allocated  for  each 


Generating  a 
source  /  assembly  listing: 

-S  key 
4.1.2.10 

hsy.  Action 

e  Generates  a  paginated,  extended  assembly 

listing  that  includes  code  ofi&ets  and  object 
code 

n 


The  -S  option  instructs  the  compiler  to  generate  an  assembly 
listing  from  the  elaboration  process  and  send  it  to  a  file.  The  file 
created  is  called  file .  obm.  s  with  file .  S  (normal)  or  file .  E 
(extended).  If  -s  (the  default)  is  not  used,  an  assembly  listing  is 
not  generated.  Enter  one  of  the  following  for  key. 


Generates  a  normal  assembly  listing  that 
can  be  used  as  input  to  the  assembler 
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APPENDIX  F  OF  THE  Ada  STANDARD 


The  only  allowed  implementation  dependencies  correspond  to 
implementation-dependent  pragmas,  to  certain  machine-dependent  conventions 
as  mentioned  in  Chapter  13  of  the  Ada  Standard,  and  to  certain  allowed 
restrictions  on  representation  clauses.  The  implementation-dependent 
characteristics  of  this  Ada  implementation,  as  described  in  this  Appendix, 
are  provided  by  the  customer.  Unless  specifically  noted  otherwise, 
references  in  this  Appendix  are  to  compiler  documentation  and  not  to  this 
report.  Implementation-specific  portions  of  the  package  STANDARD,  which 
are  not  a  part  of  Appendix  F,  are: 


package  STANDARD  is 

type  INTEGER  is  range  -2**45  ..  2** (45-1); 

type  FLOAT  is  digits  13  range  -2 .726870339049E+2465  .. 

2.726870339049E+2465; 

type  DURATION  is  delta  2#1.0e-14  range  -86400  ..  86400; 


end  STANDARD; 
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Page 

1  CPU  targeting 

1  EMA  and  no  EMA 

2  CRAY  X-MP  system 
compatibility  mode 

2  Runtime  support 

2  Interfacing  to  other  languages 

3  Limitations  on  SEGLDR  map 
files 


Portability  Considerations  [1] 


CPU  targeting 

1.1 


EMA  and  no  EMA 

1.2 


Several  issues  arise  with  regard  to  the  generation  and 
movement  of  executable  files  between  various  Cray  Research 
systems.  Generally,  the  rules  for  Cray  Ada  are  as  follows: 

•  Code  can  be  generated  only  for  the  specific  model  on  which  the 
Ada  compiler  is  running. 

•  Ada  is  compatible  only  at  the  level  of  source  code. 

The  specific  issues  related  to  Ada  support  on  the  variovis  Cray 
Research  architectures  are  explained  in  the  following 
subsections. 


Cray  Ada  does  not  support  a  mechanism  that  targets  code  for  a 
Cray  Research  system  other  than  the  one  on  which  the 
compilation  occurs.  For  example,  there  is  no  user  option  that 
lets  Ada  code  compiled  on  a  CRAy-2  system  produce  executable 
files  for  a  CRA5f  Y-MP  system. 


The  issue  of  extended  memory  addressing  (EMA)  is  relevant  for 
CRAY  X-MP  systems.  Currently,  the  Ada  compiler  can  generate 
executable  code  only  for  the  specific  system  configuratior  on 
which  the  compiler  is  running. 

Users  must  be  extremely  careful  when  attempting  to  execute 
code  on  a  machine  other  than  the  one  on  which  it  was  compiled, 
because  the  compiler  does  not  rarrently  notify  users  when  the 
addressing  scheme  used  in  compiling  a  given  code  is 
incompatible  with  or  different  from  that  of  the  target  execution 
machine.  To  avoid  unexpected  execution  problems  or  inaccurate 
results,  the  best  (and  recommended)  practice  is  to  execute  code 
on  only  the  machine  on  which  it  was  compiled. 


SR-3082  2.0 
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CRAYX-MP 

system 

compatibility 

mode 

1.3 


Runtime  support 

1.4 


Interfacing  to 
other  languages 

1.5 


Cmrently,  the  Cray  Ada  compiler  does  not  support  the  TARGET 
environment  variable  that  indicates  system  hardware.  Users 
must  ens\»»'e  that  the  correct  libinries  are  included  when  Linking. 
“The  Ada  linker,”  in  Cray  Ada  Environment,  Volume  1: 
Reference  Manual,  pubhcation  SR-3014,  describes  several 
appropriate  strategies  for  referencing  alternative  Ubraries. 

Users  shovdd  also  check  with  their  system  support  staff  to 
determine  whether  a  transparent  user  interface  has  been 
established  for  their  system. 

The  most  common  message  that  indicates  a  library  compatibihty 
problem  resembles  the  following: 

•Wazming*  File  ' /usr/lib/libc.a'  contains  26 
modules  with  conflicting  machine 
characteristics 


The  Cray  Ada  runtime  sublibrary,  /usr/ lib/ runtime,  sub,  has 
been  tailored  to  support  the  specific  architecture  on  which  it 
runs.  For  CRAY  X-W  systems,  variations  in  the  runtime 
library  relate  primarily  to  issues  of  EMA  and 
compress-index/gather-scatter  hardware  support.  For  CRAY-2 
systems,  the  nmtime  library  differs  from  that  of  CRAY  X-MP  and 
CRAY  Y-MP  systems  primarily  because  of  differences  in  the  two 
architectures’  instruction  sets.  Avoid  moving  the  runtime  Ubrary 
from  one  machine  to  another. 


When  mixing  Ada  with  another  language  such  as  Fortran,  C, 
Pascal,  or  CAL,  users  must  ensure  that  the  hardware  attributes 
(CPU  type,  24-bit  addressing,  and  so  on)  used  to  compile  the 
foreign  modules  agree  with  those  of  the  Ada  compilation 
environment.  Compilation  of  all  foreign  language  modules 
should  be  performed  on  the  machine  on  which  the  Ada  modules 
were  compiled  and  should  use  the  targeting  defaults  available 
with  the  foreign  language  compiler. 
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Portability  Considerations 


Limitations  on 

SEGLDR  map  files 

1.6 


A  limitation  exists  regarding  SEGLDR  load  maps  for  very  large 
Ada  programs.  Specifically,  version  5.2  of  SEGLDR  (Id)  cannot 
produce  map  files  for  Ada  programs  containing  more  than  about 
16,000  subprograms.  By  default,  aid  does  not  request  a  map  file 
fi’om  SEGLDR,  so  this  does  not  usually  cause  a  problem. 

However,  if  you  have  a  very  large  Ada  program  and  you  request 
a  load  map  (perhaps  for  use  with  cdbx),  either  with  the  -p 
switch  to  aid  or  by  modifying  the  Link  script,  you  should  be 
aware  of  this  restriction. 


This  limitation  was  removed  in  SEGLDR  version  6.0  for  UNICOS 

6.0. 
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Environment  [2] 


This  section  provides  a  number  of  techniques  that  you  are 
encouraged  to  use  to  get  maximum  performance  and 
functionality  from  the  Cray  Ada  Environment. 


Compiling 
specifications  and 

bodies  separately 

2.1 


You  should  take  full  advantage  of  Ada’s  separate  compilation 
capabilities.  In  particiilar,  each  compilation  unit  should  be 
located  in  a  separate  source  file.  This  ensures  that  the  minimum 
amoimt  of  recompilation  of  dependent  units  is  required  when 
any  particular  compilation  unit  has  been  modified. 

Maintaining  the  specification  and  body  of  a  given  compilation 
unit  in  one  source  file  may  appear  to  be  a  reasonable  alternative 
to  completely  separate  files.  However,  if  you  do  this,  any 
recompilation  of  the  body  causes  the  recompilation  of  the 
specification,  which  in  turn  requires  the  recompilation  of  all 
units  that  either  directly  or  indirectly  import  that  specification. 
When  such  a  recompilation  involves  a  low-level  package  that  is 
widely  used,  virtually  the  entire  application  may  have  to  be 
recompiled.  Similar  principles  apply  to  the  maintenance  of 
multiple  unit  specifications  in  a  single  source  file.  In  some 
instances,  a  valid  compilation  order  cannot  be  foimd  when 
multiple  units  reside  in  one  file. 


Using  generics 
efficiently 

2.2 


Although  the  Cray  Ada  compiler  does  not  cxirrently  implement 
code  sharing  for  instantiations,  there  are  several  ways  to  use 
generic  program  units  effectively.  They  are  discussed  in  the 
subsections  that  follow. 
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Use  preinstantiated  Compiling  the  instantiation  of  a  generic  unit  is  roughly 

generic  units  equivalent  to  compiling  the  source  of  the  generic  unit  itself  at 

2.2.1  the  point  of  instantiation.  When  the  generic  unit  contains  a 

large  volume  of  code,  this  operation  can  use  significant  machine 
resources.  Moreover,  this  overhead  is  incurred  each  time  the 
instantiating  package  is  compiled. 

lb  minimize  overhead,  you  shovdd  preinstantiate  generic  tinits 
by  compiling  them  in  the  libraiy  whenever  possible.  This  is 
especially  true  for  the  standard  predefined  I/O  generics,  which 
are  relatively  large.  For  your  convenience, 

/usr/  lib/ runt  ime .  sub  contains  two  generic  instantiations 
fi*om  package  Text_IO.  These  are  Integer_Text_IO  and 
Float_Text_IO.  Additionally,  both  float  and  integer 
instantiations  have  been  provided  for  CRAY_LIB.  These  are 
CRAY_MATH_LIB,  CRA.Y_BIT_LIB,  and  CRAY_UTIL_LIB.  See 
“Library  Interfaces,”  page  119,  for  additional  information  on 
CRAY_LIB. 

The  following  example  shows  the  specifications  of  these 
packages: 


with  Text_IO; 
with  CRAY_LIB; 

—  Text_IO  instantiations 

Package  Integer_Text_IO  is  new  Text_IO. Integer_IO (Integer ) ; 
Package  Float_Text_IO  is  new  Text_IO.Float_IO(IFloat) ; 

—  CRAY_LIB  Instantiations 

Package  CRAY_MATH_LIB  is  new  CRAY_LIB.MATH_LIB (Float ) ; 
Package  CRAY_MATH_LIB  is  new  CRAY_LIB.MATH_LIB (Integer) ; 
Package  CRAY_BIT_LIB  is  new  CRAY_LIB . BIT_LIB (Float ) ; 

Package  CRAY_BIT_LIB  is  new  CRAY_LIB.BIT_LIB (Integer ) ; 
Package  CRAY_UTIL_LIB  is  new  CRAY_LIB.UTIL_LIB (Float ) ; 
Package  CRAY_UTIL_LIB  is  new  CRAY_LIB.UTIL_LIB (Integer); 
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Use  pragma  INLINE  for 

optimizing 

2.2.4 


Optimizing  hints 

2.3 


Weighted  sections  of 
code 

2.3.1 


Nonnegative  variables 
2.3.2 


Short-circuit  Boolean 
expressions 

2.3.3 


Many  generics  involve  subprogram  parameters  to  provide 
relational  operations  on  generic  formal  private  types.  Often,  the 
subprograms  supplied  as  generic  actual  parameters  are  trivial. 
In  such  cases,  they  shotild  be  marked  for  inlining  during 
optimization  by  use  of  pragma  INLINE.  Because  generic 
instantiations  are  macro  expansions  of  the  generic  body 
template,  calls  to  generic  subprogram  parameters  can  be  inlined 
at  the  time  of  the  instantiation,  avoiding  any  call  overhead. 

As  specified  by  the  Ada  LRM,  the  pragma  must  be  placed  in  the 
same  declarative  region  as  the  declaration  of  the  subprogram  to 
be  inlined  and  must  follow  the  subprogram  declaration.  If  you 
do  not  specify  -0  on  or  -0  I  as  an  option  on  the  a  da  or  a  opt 
command  line,  pragma  INLINE  is  ignored. 


The  information  in  the  following  subsections  will  help  you 
achieve  better  optimization  of  your  code. 


The  optimizer,  when  it  assigns  weights  to  sections  of  code,  gives 
a  higher  weight  to  the  IF  part  of  a  branch  than  to  the  ELSE  part. 
If  one  alternative  is  more  likely  than  the  other,  arrange  the  IF 
statement  to  take  thiR  into  account. 


Several  optimizations  are  possible  when  the  compiler  knows  that 
the  range  of  a  variable  is  strictly  nonnegative.  Therefore,  when 
possible,  declare  variables  of  type  Positive  or  of  type  Natural. 
This  is  particularly  important  for  integer  Divide,  Rem,  and  Mod. 


Short-circuit  Boolean  expressions  that  are  evaluated  into  a 
Boolean  variable  almost  always  generate  a  subroutine  call. 
Therefore,  it  is  best  not  to  use  the  short-circxiit  forms  in  those 
cases.  Short-circuit  Boolean  expression  in  i  f  statements  do  not 
have  this  problem. 
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You  may  want  to  add  additional  commonly  used  I/O  package 
instantiations  to  your  own  sublibraries  and  use  the 
preinstantiated  versions  in  yotor  application,  besides  any  of  your 
own  generic  units.  The  following  is  an  example  of  a  package 
containing  generic  units: 


with  Text_IO; 

package  Nunieric_IO_Stuf f  is 

package  Float_IO  is  new  Text_IO. Float_IO{ Float ) ; 
package  Int_IO  is  new  Text_IO. lnteger_IO (Integer ) ; 
end  Numeric_IO_Stuf f ; 


Instead  of  reinstantiating  new  versions  of  Integer_lO,  other 
packages  would  simply  import  this  package  by  using  the  with 
Numeric_IO_Stuf  f  line.  This  method  can  save  compilation 
time  and  code  space. 


Compile  generic  bodies  Although  the  compiler  lets  you  compile  an  instantiation  of  a 
early  generic  unit  at  any  time  alter  the  generic  specification  has  been 

2.2.2  compiled,  it  is  best  not  to  compile  any  instantiations  until  after 

the  corresponding  generic  body  has  also  been  compiled. 
Otherwise,  you  will  be  forced  to  recompile  all  instantiations  of 
that  generic  unit. 


Keep  generic  bodies  Because  the  body  code  is  effectively  recompiled  with  each  new 

small  instantiation  of  a  generic  unit,  it  is  best  to  keep  the  body  code  as 

2.2.3  small  as  possible.  Try  to  partition  the  functionality  of  a  generic 

unit  into  parts  that  are  specific  to  the  actual  parameters  of  the 
unit  and  parts  that  can  be  common  to  different  instantiations. 
The  latter  can  be  placed  in  nongeneric  program  units  that  are 
referenced  and  called  firom  the  generic  body.  For  more 
information,  see  the  Cray  Ada  Environment,  Volume  1: 

Reference  Manual,  publication  SR-3014. 
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Using  pragma 

ELABORATE 

2.4 


Organizing 

sublibraries 

2.5 


Restrict  the  number  of 
sublibraries 

2.5.1 


It  is  S3mtactically  possible  but  semantically  incorrect  to  call  an 
Ada  subprogram  before  its  body  is  elaborated.  The  Ada  LRM 
requires  that  the  PROGRAM_ERROR  exception  be  raised  if  such  a 
call  is  made.  As  a  defatilt,  the  code  generated  by  the  compiler 
must  contain  checks  to  ensure  that  called  routines  have  already 
been  elaborated. 

Pragma  ELABORATE  lets  you  specify  expUcit  elaboration  order 
dependencies  beyond  those  consistent  with  the  partial  ordering 
defined  by  with  clauses.  Pragma  ELABORATE  must  immediately 
follow  the  context  clause  of  a  compilation  imit,  before  any 
subsequent  library  unit  or  secondary  unit. 

Pragma  ELABORATE  specifies  that  the  body  of  a  given  Hbrary 
unit  must  be  elaborated  before  a  given  compilation  xmit.  For 
example,  using  the  pocket_calculator  example  shown  in 
Cray  Ada  Environment,  Volume  1:  Reference  Manual, 
pubhcation  SR-3014,  suppose  that  a  subunit,  named  sqrt 
referenced  the  specification  of  package  trig.  In  this  case,  the 
directive,  pragma  ELABORATE  (trig,  calc .  arith) ,  inserted 
after  the  context  clause  in  sqrt  would  ensure  that  the 
specification  of  trig  would  be  elaborated  before  the  body  of 
sqrt’s  parent  unit,  calc .  arith. 

The  elaboration  of  an  executing  program  observes  these  exphcit 
directives  in  addition  to  the  implicit  ordering  required  by  the 
compilation  unit  interdependencies.  Calls  to  routines  in  a 
compilation  unit  that  is  mentioned  in  pragma  ELABORATE  do  not 
have  to  be  checked,  because  the  pragma  provides  the  called 
routine  that  has  already  been  elaborated.  Therefore,  the 
compiler  omits  elaboration  checks  aind  produces  smaller,  faster 
code  for  interunit  palls. 


The  organization  of  sublibraries  is  an  important  part  of 
managing  an  Ada  system.  The  following  subsections  discuss 
guidelines  for  the  management  of  a  sublibrary  hierarchy. 


Compilation  proceeds  most  rapidly  when  the  number  of 
sublibraries  in  a  library  is  kept  to  a  minimum.  The  number  of 
sublibraries  has  a  minimal  effect  on  compilation  speed  when  the 
number  is  small,  but  it  can  become  a  significant  factor  when  the 
number  becomes  large  (more  than  five). 
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Restrict  the  number  of  A  compilation  rate  dependence  similar  to  that  for  sublibraries 
units  in  the  library  but  smaller,  applies  to  the  number  of  units  in  a  hbraiy. 

2.5.2  Therefore,  if  a  library  contains  a  large  number  of  small  units,  it 

may  be  advantageous  to  decrease  the  total  number  of  units 
contained  in  the  library. 

Therefore,  when  compiling  moderately  large  systems  ( 100  -  400 
compilation  units),  you  should  use  the  following  general 
methodology  to  enhance  compilation  rates: 

1.  Compile  all  of  the  unit  specifications  for  the  system  into  one 
sublibrary. 

2.  Divide  the  corresponding  unit  bodies  into  two  or  more 
groups.  This  division  should  be  made  along  functional  Unes, 
although  an  arbitrary  division  also  works. 

3.  Construct  a  library  file  that  contains  only  three  sublibraries: 
an  empty  sublibrary  as  the  working  subhbrary,  the 
sublibrary  containing  the  unit  specifications,  and  the 
standard  predefined  runtime  subhbrary. 

4.  Compile  a  group  of  unit  bodies  into  this  Ubraiy. 

5.  Set  aside  the  working  subhbrary  containing  the  compiled 
unit  bodies. 

6.  Repeat  steps  3  through  5  imtil  all  groups  of  unit  bodies  have 
been  compiled. 

At  this  point,  you  will  have  one  subhbrary  containing  the 
compiled  specifications  and  a  series  of  subhbraries  containing  ah 
of  the  compiled  unit  bodies.  A  hbrary  specifying  this  set  of 
subhbraries  may  then  be  used  to  bind  the  main  program  unit 
into  an  executable  Xda.  program. 

This  method  enhances  the  compilation  rate  because  at  any  time 
the  hbrary  contains  at  most  three  subhbraries,  and  the  working 
subhbrary  contains  only  a  subset  of  the  compiled  bodies.  The 
unit  specifications,  which  determine  the  Ada  compilation  order 
dependencies,  are  contained  in  one  subhbrary  so  that  the  bodies 
may  be  compiled  in  any  order. 

This  method  also  provides  some  procedural  advantages.  Large 
systems  are  typically  compiled  with  some  form  of  compilation 
command  file.  However,  a  failurf  n  the  compilation  of  one 
specification  (for  example,  because  of  a  syntax  error)  causes 
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other  subsequent  units  that  depend  on  that  unit  to  fail.  Thus, 
either  complex  logic  in  the  command  file  or  close  monitoring  by 
the  developer  is  required  to  avoid  a  chain  of  compilation  failures 
subsequent  to  the  first  compilation  failure  of  a  tinit  specification. 

With  the  preceding  method,  the  need  for  prompt  error  detection 
exists  only  for  the  compilation  of  the  unit  specifications.  When 
the  sublibrary  containing  the  iinit  specifications  has  been 
compiled  without  error,  the  subsequent  body  compilations  may 
be  allowed  to  proceed  with  little  or  no  monitoring;  any  bodies 
that  fail  to  compile  may  have  their  source  code  corrected  and  be 
recompiled  without  affecting  any  of  the  other  compiled  units. 


Note 

Bodies  of  compilation  units  that  contain  many  subunits  should 
be  treated  as  specifications,  that  is,  monitored  for  prompt  error 
detection. 

The  sublibrary  containing  the  body  of  a  generic  unit  or  the  body 
of  a  subprogram  designated  with  pragma  INLINE  must  be 
included  in  the  library  list  when  callers  or  instantiators  of  the 
subprogram  are  compiled. 


The  preceding  scheme  may  be  unfeasible  for  developing  very 
large  systems  or,  if  feasible,  not  optimal  because  of  the  large 
number  of  specifications  that  would  have  to  be  held  in  one 
sublibrary.  An  optimal  strategy  also  depends  on  the  stability  of 
the  interface  specifications. 
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Use  multiple 
sublibraries  for  unit 
testing 

2.5.3 


For  very  large  S3^tems,  a  four-level  hierarchy  might  be  useful;  it 
should  include  a  separate  sublibrary  for  each  of  the  following: 

•  Predefined  runtime  library  units 

•  Stable  interface  specifications  common  to  major  functional 
components 

•  Specifications  local  to  msgor  functional  components 

•  Bodies  for  a  subgrouping  of  major  functional  components 


During  program  development,  you  may  want  to  try  a 
modification  to  the  body  of  an  existing  compilation  unit  while 
saving  the  previous  version  of  the  unit  as  a  backup.  For 
example,  you  may  want  to  experiment  with  a  new  algorithm  or 
insert  debugging  code.  You  can  accomplish  this  easily  by  adding 
an  empty  working  sublibrary  and  compiling  the  new  version  of 
the  unit  body  into  that  sublibrary.  As  long  as  the  test  subHbrary 
appears  in  the  library  file  before  (above)  the  sublibrary 
containing  the  previous  version,  the  new  unit  body  will 
effectively  replace  the  old  one  in  subsequent  binding  operations; 
the  main  program  must  be  in  the  working  sublibrary  during 
binding.  Therefore,  the  main  program  may  have  to  be 
recompiled  or  copied  into  the  working  sublibrary  by  use  of  the 
acp  command. 

lb  return  to  the  previous  version,  simply  remove  the  test 
sublibraiy  firom  the  library  list,  or  move  it  lower  in  the  list  thain 
the  sublibrary  containing  the  original  version,  lb  replace  the 
previous  version  with  the  new  version,  use  the  amv  command  to 
move  the  new  version  firom  the  testing  sublibrary  into  the 
sublibrary  containing  the  previous  version  and  remove  the 
testing  sublibraiy  from  the  library  file. 
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Compressing 

sublibraries 

2.6 


The  Cray  Ada  Environment  compression  utility  recovers  disk 
space  that  is  lost  to  internal  fragmentation  over  the  course  of 
many  recompilations  into  a  sublibrary.  Additionally,  it  orders 
the  database  elements  to  promote  efficient  I/O  operations  on  the 
database.  Sublibrary  compression  minimizes  library  space, 
permits  faster  subhbraiy  access,  and  improves  compilation 
speed.  This  featvu*e  is  particularly  important  to  users  having 
limited  disk  Space,  because  compressions  of  more  than  50%  can 
be  reahzed.  For  more  information  about  this  feature  and  the 
command  that  invokes  it,  see  Cray  Ada  Environment,  Volume  1: 
Reference  Manual,  pubhcation  SR-3014. 


Using  input-list 
files  to  compile 

2.7 


As  mentioned  in  “Compiling  a  Ust  of  files,”  in  Cray  Ada 
Environment,  Volume  1:  Reference  Manual,  publication  SR-3014, 
when  you  use  an  input  list  or  name  several  files  to  be  compiled 
on  the  command  line,  the  files  in  the  Ust  are  compiled  in  one 
compiler  invocation.  This  can  provide  a  savings  in  compilation 
time,  because  the  Ada  library  is  opened  only  once  (a  relatively 
costly  operation).  In  some  instances,  you  may  achieve 
compilation-time  savings  of  30%  to  50%. 

However,  when  input-list  files  contain  too  many  entries,  they  can 
slow  down  the  compilation  process.  This  occurs  when  the 
compilation  becomes  too  large  to  compete  successfully  for  the 
memory  space.  This  threshold  depends  on  the  memory  size  of 
your  Cray  Research  system  and  any  per-user  memory  limits  set 
by  the  system  administrator,  the  system  load,  the  number  of 
entries  in  the  input-hst  file,  and  the  size  of  each  compilation 
unit. 


Passing 

parameters 

efficiently 

2.8 


For  the  most  efficiency  in  passing  parameters  with  a  CRAY  Y-MP 
or  CRAY  X-MP  system,  the  most  important  (most  used) 
parameters  should  be  declared  first.  For  the  best  performance, 
users  should  copy  variables  defined  outside  the  current 
procedure  into  locally  defined  variables  before  heavy  use 
situations  such  as  loops. 
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System  limitations 

2.9 


Taking  the  '  address  of  a  variable  or  parameter  restricts  it  from 
being  allocated  to  a  register.  On  CRAY-2  systems,  if  any  of  the 
parameters  are  used  by  variables  defined  outside  the  current 
procedvu*e  into  locally  defined  variables  or  have  their  '  address 
taken,  this  causes  all  parameters  to  be  written  to  the  stack.  This 
can  cause  a  substantial  performance  degradation. 


The  Cray  Ada  compiler  was  designed  to  be  largely  insensitive  to 
the  size  of  compilation  units,  in  terms  of  its  memory 
requirements.  Under  some  circumstances,  however,  the 
compiler  takes  an  exception  of  STORAGE_ERROR,  indicating 
insufBcient  memory  to  compile  a  speciiic  compilation  unit.  In 
most  such  cases,  breaking  the  compilation  iinit  into  smaller 
pieces  of  code  should  alleviate  the  problem.  For  other  possible 
remedies,  see  Cray  Ada  Environment,  Volume  1:  Reference 
Manual,  publication  SRr-3014. 

Table  1  shows  the  Ciay  Ada  compiler’s  tested  capacities.  These 
capacities  are  currently  tested  values  for  a  CRAY  X-MP/416 
system;  actual  limits  may  be  higher  or  lower,  depending  on  your 
hardware  configuration. 
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Table  1.  Tested  compiler  capacities 

Category 

Item 

Capacity  value 

Ada  source  code 

Length  of  identifier 

200  (or  max  line  width  if  >80) 

Length  of  labels 

200  (or  max  line  width) 

Length  of  qualified  identifiers 

200  (or  max  line  width) 

Length  of  attributes 

200  (or  max  line  width) 

Length  of  strings 

4,194,304 

Maximum  dimensionality  of  arrays 

12 

Number  of  characters  per  logical  line 

200 

Number  of  compilation  units 

800 

Number  of  distinct  declarations 

50,000 

Number  of  elaboration  pragmas 

600 

Number  of  library  units 

5000 

Number  of  package  names  in  a  wi  ch  clause 

16 

Number  of packages  included(usingwich)  in  a 
compilation  unit 

600 

Number  of  priorities 

64 

Number  of  simultaneously  active  tasks 

1000 

Depth  of  nesting  of  tasks 

128 

Compilation  unit  limits 

Depth  of  nesting  of  blocks 

80 

Depth  of  nesting  of  case  statements 

128 

Depth  of  nesting  of  1  £  statements 

128 

Depth  of  nesting  of  loop  statements 

100 

Depth  of  nesting  of  subprograms 

24  (CRAY  Y-MP,  CRAY  X-MP) 
128  (CRAY-2) 

Number  of  64-bit  elements  in  an  array 

4,194,304  (CRAY  X-MP) 
2,147,483,648  (CRAY  Y-MP, 
CRAy-2)» 

Number  of  attributes 

100 

Number  of  declarations 

5000 

Number  of  declarations  in  a  block 

1000 

Number  of  enumeration  values  in  a  type 

255 

Number  of  els  if  alternatives 

256 

Number  of  explicit  exceptions 

256 

Number  of  identifiers 

10000 

Number  of  literals 

500 

Number  of  record  components 

1000 

Number  of  statements  and  declarations  per  procedure 

32,767 

Number  of  subtypes  of  a  type 

1099 

100  (CRAY-2) 

§  This  value  is  tested  for  compilation  only.  Ability  to  use  this  size  is  dependent  on  your 
systems  memory. 
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Table  1.  Tfested  compiler  capacities 
(continued) 

Category 

Item 

Capacity  value 

Number  of  type  declarations 

2000 

Number  of  variant  parts 

600 

Expression  limits 

Depth  of  parenthesis  nesting 

25 

Number  of  functions 

100 

Number  of  objects 

250 

Number  of  operations 

250 

Subprogram  limits 

Number  of  declarations  in  a  subprogram 

1000 

Number  of  formal  parameters 

No  limit  (CRAY  Y-MP, 
CRAYX-MP) 

64  (CRAY-2) 

Package  limits 

Number  of  private  declarationa/package 

1000 

Number  of  visible  declarations/package 

1000 

Task  limits 

Number  of  accepts 

50 

Number  of  delays 

25 

Number  of  entries 

25 

Number  of  select  alternatives 

25 

Interfacing  to  debug  foreign  language  modules  at  the  source  code  level  you 

other  landia^es  must  use  cdbx.  While  you  do  this,  however,  the  Ada  program 

2  jQ  o  »  can  be  debugged  only  at  the  machine  level. 

If  you  use  adbg  to  debug  an  Ada  program  at  the  source-code 
level,  debugging  of  foreign  language  modules  with  acibg  is 
available  only  at  the  machine  level. 
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The  following  is  a  list  of  guidelines  for  the  allocation  of  arrays: 

•  If  the  array  is  defined  in  a  procedtire,  it  is  dynamically 
allocated  on  the  stack  at  runtime. 

•  If  the  array  is  defined  by  an  allocator,  it  is  dynamically  defined 
on  the  heap  at  run  time. 

•  If  the  array  is  defined  in  a  package  which  is  then  with  ed,  it  is 
statically  allocated  at  compile  time  and  is  part  of  the  total 
program  field  length. 

If  allocation  cannot  be  done  at  runtime,  a  Storage_Error  will 

be  raised. 


Arrays 

2.11 
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The  optimization  features  include  both  significant  enhancements 
to  general  optimizations  and  the  introduction  of  general 
optimizations  such  as  automatic  vectorization  and  scheduling  of 
instructions.  You  can  control  these  featimes  by  using  the  -0  key 
option  of  the  ada  and  aopt  commands. 

Several  optimization  options  are  available  through  aopt  and 
through  pragmas  included  in  your  source  code.  This  section 
describes  the  use  of  pragmas.  For  more  information  on  the  ada 
and  aopt  commands,  see  Cray  Ada  Environment,  Volume  1: 
Reference  Manual,  publication  SR-3014. 

The  types  of  optimizations  supported  by  Cray  Ada  are  as  follows: 
general  optimizations,  instruction  scheduling,  vectorization,  and 
user-selected  optimizations.  These  optimization  types  are 
described  in  the  following  subsections. 


General 

optimizations 

3.1 


EflScient  optimizations  are  very  important  to  Cray  Ada  because 
the  language  inherently  restricts  certain  types  of  vectorization 
and  some  movement  of  instructions.  The  general  optimizations 
performed  are  the  following: 

•  Subprogram  inlining 

•  Common  subexpression  elimination 

•  Dead  code  elimination 

•  Local  value  propagation 

•  Range  calculation  and  propagation 

•  Constant  folding  and  propagation 

•  Check  elimination 

•  Subprogram  interface  optimization 

•  Lifetime  minimization 

•  Tail  recursion  elimination 

•  Dead  store  elimination 
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Call  graph  analysis 
optimizations 

3.1.1 


Data  flow  analysis 

3.1.2 


•  Induction  variable  identification 

•  Copy  propagation 

The  remainder  of  this  subsection  describes  the  specific 
optimizations  that  the  optimizer  performs.  Only  the  potentially 
more  significant  optimizations  are  described.  Other 
optimizations  may  be  performed  as  appropriate,  but  they  might 
not  have  as  significant  an  impact  on  the  execution  efficiency  of 
some  Ada  programs. 


Call  graph  analysis  optimizations  are  those  based  on  the 
analysis  of  the  call  graph  for  a  compilation  unit  or  for  a  collection 
of  compilation  units.  Complete  call  graph  analysis  is  possible 
only  when  an  entire  program  is  optimized  as  a  whole  into  an 
optimized  collection.  If  this  is  not  done,  there  will  be  at  least 
some  subprograms  in  the  optimized  collection  for  which  no 
assumptions  can  be  made  regarding  their  potential  callers. 
However,  these  subprograms  will  be  those  that  belong  only  to 
the  external  interface  of  a  unit  within  the  collection.  For 
subprograms  that  appear  in  a  package  body  but  not  in  its 
specification  or  for  those  nested  within  an  other  subprogram, 
only  the  calls  that  the  optimizer  can  see  can  occur.  Full 
knowledge  of  all  possible  calls  can  result  in  significant 
optimizations. 

The  types  of  optimizations  possible  firom  cadi  graph  analysis  are 
inline  expansion  of  subprograms  and  parameter  substitutions. 


Although  not  an  optimization  itself,  data  flow  analysis  is  a  key 
step  in  the  optimization  process.  It  is  the  foundation  finm  which 
many  of  the  subsequent  optimizations  are  derived.  The 
following  are  types  of  data  flow  analysis: 

•  Local  data  flow  analysis.  Local  data  flow  analysis  involves 
tracing  data  flow  information  within  basic  blocks.  A  basic 
block  is  a  piece  of  code  that  has  exactly  one  entry  point  and 
that  executes  sequentially  without  halts  or  branches.  A  basic 
block  may  have  one  or  more  exit  paths  associated  with  it. 
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•  Common  subexpressions.  A  common  subexpression  is  a  piece 
of  code  that  appears  more  than  once  and  computes  the  same 
value  in  each  instance.  At  the  source-code  level  for 
well-written  programs,  common  subexpressions  do  not  occur 
with  any  significant  frequency.  In  translation  of  Ada  to  a 
lower-level  intermediate  representation,  however,  the  compiler 
itself  generates  many  instances  of  common  subexpressions. 
They  arise  mainly  in  connection  with  address  expressions  for 
array  and  record  accesses.  By  associating  temporaiy 
variables,  which  are  t3rpically  registers,  with  common 
subexpressions  and  replacing  subsequent  occurrences  of  the 
common  subexpression  with  the  temporary  variable, 
considerable  overall  code  improvement  is  possible. 

•  Range  analysis.  Range  analysis  is  the  tracking  of  the  possible 
ranges  in  which  expressions  and  variables  are  used  in  a 
program.  Range  analysis  is  used  to  substitute  a  constant 
value  in  place  of  an  expression  that  can  yield  only  that 
constant  value.  Range  analysis  is  also  used  to  drive  other 
optimizations,  including  elimination  of  runtime  checks  and 
elimination  of  dead  code. 

•  Constant  folding.  Constant  folding  is  the  replacing  of  an 
expression  that  always  evaluates  to  a  static  literal  value  with 
the  resulting  literal  value. 

•  Runtime  check  elimination  and  reduction.  Runtime  check 
elimination  occurs  when  useless  or  redundant  runtime  checks 
are  detected.  Ada  requires  that  the  compiler  insert  rather 
extensive  runtime  checks  for  a  variety  of  purposes  if  it  cannot 
determine  statically  that  the  checks  are  redundant.  Range 
analysis  is  used  to  detect  runtime  checks  that  can  be 
eliminated  or  reduced.  A  check  is  reduced  by  being  replaced 
with  a  simpler  check.  For  example,  a  check  to  ensure  that  an 
integer  variable  is  within  a  particular  range  could  be  replaced 
by  a  check  on  only  the  upper  part  of  the  range  if  it  could  be 
determined  that  the  variable  could  not  underflow  the  range.  If 
a  runtime  check  is  determined  statically  to  be  true,  it  is 
replaced  by  a  raise  statement  of  the  appropriate  exception. 
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•  Dead  code  elimination.  Dead  code  elimination  is  the  removal ' 
of  poirtions  of  a  subprogram  that  can  never  be  executed  or 
whose  results  will  not  be  used.  Range  analysis,  constant 
folding,  and  value  propagation  may  cause  the  conditional  part 
of  an  IF  or  CASE  statement  to  evaluate  to  a  constant  value  or 
to  a  value  with  a  reduced  range.  This  can  result  in  the 
elimination  of  the  portion  of  the  IF  or  CASE  statement  that 
cannot  be  reached.  Assignment  to  a  variable  that  is  not 
subsequently  tised  results  in  the  elimination  of  the  source 
expression  if  it  has  no  side  effects. 

•  Value  propagation.  Value  propagation  is  the  replacement  of  a 
variable  access  with  the  expression  that  calcvdates  the  ctirrent 
value  of  the  variable,  whenever  the  expression  is  less 
expensive  to  evaluate  than  the  variable  access.  A  special  case 
of  value  propagation  is  constant  propagation,  in  which  the 
expression  is  a  literal  value. 

•  Lifetime  minimization.  Lifetime  minimization  is  the 
movement  of  an  assignment  to  a  variable  as  close  as  possible 
to  the  first  iise  of  the  variable.  Minimizing  the  span  in  which 
the  variable  is  active  can  result  in  improved  register 
utilization. 

•  Tail  recursion  elimination.  Tail  recursion  elimination  is  the 
replacement  of  a  recursive  call  at  the  end  of  a  subprogram 
with  a  reassignment  of  parameter  values  and  a  jump  back  to 
the  start  of  the  subprogram.  A  tail  recursive  subprogram  call 
is  the  last  action  performed  during  the  subprogram  invocation. 
For  example,  in  the  following  program  fi*agment,  the  recursive 
call  on  line  6  is  tail  recursive,  but  the  recursive  call  on  fine  8  is 
not,  beca\ise  the  constant  m  is  added  to  the  function  result 
before  returning  fi-om  F. 


1  function  F  {I:  integer)  return  integer  is 

2  begin 

3  if  I  =  0  then 

4  return  1 ; 

5  elsif  I  <  10  then 

6  return  F  (I-l); 

7  else 

8  return  m  +  F  (I-l); 

9  end  if; 

10  end  F; 
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Tail  recursion  elimination  can  dramatically  improve  the 
running  time  of  Certain  recursive  algorithms  by  essentially 
turning  them  into  iterative  algorithms. 

•  Loop  invariant  code  motion.  Loop  invariant  code  motion  is  the 
movement  of  expressions  in  a  loop  whose  values  do  not  change 
during  the  execution  of  the  loop  so  that  they  occur  outside  of 
and  before  the  loop.  Loop  invariant  code  motion  is  one  of  the 
two  classic  loop  optimizations  that  often  result  in  dramatic 
improvements  in  the  running  time  of  programs  that  make 
heavy  use  of  looping  constructs.  Although  user  code  seldom 
exhibits  examples  of  invariant  expressions  at  the  source  code 
level,  the  compiler  often  introduces  loop  invariant  expressions 
into  the  lower-level  intermediate  representation,  usually 
associated  with  addressing  calculations. 

•  Induction  variable  identification.  Induction  variables  are 
variables  that  change  by  a  constant  value  on  each  iteration 
through  a  loop  or  are  equal  to  a  linear  combination  of  other 
induction  variables.  After  induction  variables  are  detected, 
their  usage  can  often  be  optimized  (and  sometimes  entirely 
removed)  by  the  replacement  of  expressions  involving  them 
with  simpler  expressions  that  calculate  the  same  value  (called 
strength  reduction).  In  the  following  example,  loopl  can  be 
replaced  by  loop2,  which  involves  less  costly  arithmetic 
operations: 


•  Dead  store  elimination.  Dead  store  elimination  is  the  removal 
of  assignments  to  variables  that  are  never  used  after  they  are 
assigned. 
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Inlining  code 
3.1.3 


Instruction 

scheduling 

3.2 


•  Copy  propagation.  Copy  propagation  is  the  elimination  of  copy 
statements  in  a  program.  Copy  statements  are  statements  of 
the  form  A  :  =  B.  The  copy  is  propagated  by  the  replacement 
of  subsequent  uses  of  A  by  B.  Copy  propagation  also  works  on 
statements  of  the  form 
A  :=  <literal  value>. 


The  inlining  of  subroutines  can  greatly  decrease  the  overhead 
associated  with  making  subroutine  and  function  calls. 

Whenever  possible,  calls  to  subprograms  are  inlined 
automatically  or  when  such  calls  are  flagged  with  pragma 
INLINE.  In  addition,  any  calls  to  noninterface  subprograms  that 
are  called  from  only  one  place  are  inlined.  Finall}',  calls  to 
subprograms  having  bodies  small  enough  that  the  inlining  is 
cheaper  in  code  space  than  the  corresponding  call  are  inlined. 
The  inlining  of  subprograms  called  from  only  one  place  can  be 
suppressed  to  preserve  a  simple  mapping  between  source 
subprograms  and  object  code. 

Small  subprograms  fall  into  two  categories,  depending  on 
whether  or  not  they  belong  to  the  external  interface  ''f  the  imit 
in  which  they  appear.  If  a  small  subprogram  does  m  belong  to 
the  external  interface  of  the  optimized  unit,  a  body  is  not 
generated  for  it,  and  all  calls  to  it  are  inlined. 

When  a  small  subprogram  belongs  to  the  external  interface  of 
the  optimized  unit,  a  body  is  generated  for  it  to  support  external 
calls.  However,  calls  within  the  unit  are  inlined.  Even  when  the 
subprogram  is  part  of  the  external  interface  of  a  unit,  if  that  unit 
is  a  hidden  unit  within  a  collection,  generation  of  the  body  is 
suppressed. 


Cray  Ada  includes  an  instruction  scheduler,  which  reorders 
generated  instructions  such  that  they  execute  faster  on  Cray 
Research  hardware  than  they  would  have  otherwise.  Because 
Cray  Research  hardware  can  perform  program  execution  in 
parallel  both  across  and  within  functional  units  (pipelining), 
instruction  scheduling  can  significantly  increase  the  speed  at 
which  programs  execute. 
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Vectorization 

3.3 


Additionally,  movement  of  load  instructions  to  minimize  wait 
times  due  to  the  speed  of  memory  access  relative  to  other  CPU 
operations  can  provide  substantial  gains  in  performance, 
particularly  in  CRAY-2  systems.  On  CRAY  Y-MP  and  CRAY  X-MP 
systems,  further  improvements  in  performance  may  be  realized 
by  the  chaining  of  vector  operations. 


Vectorization  is  the  process  of  changing  a  loop  to  an  equivalent 
form  which  operates  on  several  iterations  of  the  loop  in  parallel. 
This  is  made  possible  by  special  hardware  support  on  Cray 
Research  systems  computers,  and  is  the  largest  single  execution 
performance  improvement  of  any  optimization  available. 

Cray  Ada  does  not  have  a  mechanism  for  directly  expressing 
vector  operations,  so  the  compiler  is  capable  of  automatically 
transforming  sections  of  code  from  scalar  to  equivalent  vector 
operations.  The  following  three  primary  criteria  are  used  in 
determining  whether  a  construct  will  vectorize: 

•  The  vectorized  code  meets  the  requirements  for  generated  Ada 
code  described  in  the  Ada  Language  Reference  Manual  (LRM). 

•  The  vectorized  program  produces  the  same  results  as  does  the 
scalar  version. 

•  The  optimization  cost  when  weighted  against  the  performance 
improvements  shows  the  vector  support  to  be  important. 

The  Cray  Ada  compiler  has  a  mechanism  for  providing  detailed 
information  about  vectorization  opportunities  in  compiled  code. 
This  featxire  is  available  through  the  -T  option  on  the  ada 
command  line.  Cray  Ada  also  supports  a  system-dependent 
pragma,  VECTORIZE_LCX5P,  which  allows  for  \iser  control  of 
vectorization.  For  more  information  on  this  pragma,  see  Cray 
Ada  Environment,  Volume  1:  Reference  Manual,  publication 
SR-3014. 
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Concepts  of 
vectorization 

3.3.1 


For  your  reference,  the  following  terms  are  used  in  this 
subsection: 

•  An  induction  variable  is  a  variable  that  is  incremented  or 
decremented  with  each  iteration  of  a  loop.  The  increment  or 
decrement  may  be  accompUshed  by  or  *.  Division  is  not 
supported.  Operations  of  the  form  :  J  :  =  10  -  J ;  are  not 
legsd  for  induction  variables  because  of  the  switching  of  the 
sign  of  J  from  iteration  to  iteration  of  a  loop. 

•  A  dependence  is  an  ordering  relationship  between  operators 
that  describes  the  order  in  which  the  operation  must  execute 
to  get  the  correct  results.  Vectorization  must  preserve  this 
ordering. 

•  A  recurrence  is  a  situation  in  which  two  or  more  operations  are 
in  dependence  with  one  another.  (They  depend  on  one  another 
for  the  results  of  their  respective  operations.)  The 
vectorization  of  recurrences  can  occur  only  under  special 
conditions. 

•  A  vector  array  reference  is  the  usage  of  an  array  with  a 
subscript  that  is  variant  in  the  loop.  Examples  of  such 
subscripts  are  induction  variables  or  linear  functions  of 
induction  variables. 

•  An  invariant  is  an  object  or  constant  that  is  used  but  not 
defined  in  the  loop. 

•  A  scalar  temporary  is  a  variable  defined  in  the  loop  and  later 
referenced  in  the  loop. 

The  discussion  in  the  following  subsections  defines  vectorization 
as  it  apphes  to  Cray  Ada  release  2.0.  Ada  constructs  that  form 
vectorizable  code  sequences  emd  those  that  inhibit  vectorization 
are  defined.  The  concepts  and  terms  of  vectorization  are  defined. 
Examples  of  Ada  code  are  used  throughout  to  illustrate  and 
explain.  At  points,  individual  statements  ire  labeled  with  si,  in 
which  i  is  a  digit  for  the  purpose  of  identifying  particular 
statements  for  later  discussion. 


An  understanding  of  vectorization  includes  not  only  the  forms  of 
Cray  Ada  code  that  may  vectorize  but  xmderlying  concepts  as 
well.  The  following  subsections  are  an  introduction  to  those 
concepts. 
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Vectorization  of  induction 

variables 

3.3.1.1 


Definitions  and  uses 
3.3.1.1.1 


An  induction  variable  is  a  variable  defined  in  a  loop  as  a 
function  of  the  loop  index  variable  £ind  the  loop’s  iterations.  For 
example,  k,  j,  and  1  are  induction  variables: 


FOR 

i  IN  1 

.  .100  LOOP 

k 

:  =  i  + 

2; 

j 

:=  j  + 

1; 

1 

:=  k  * 

1; 

END 

LOOP; 

k  is  defined  in  terms  of  i,  j  is  defined  by  the  loop  iterations,  and 
1  is  derived  fi'om  k. 

j  in  this  example  is  a  special  case  of  an  induction  variable  called 
a  constant  increment  integer  (CII).  These  are  variables  that  are 
defimed  solely  as  an  increment  or  decrement  of  themselves  and 
as  constant  values. 

lb  allow  vectorization  to  occur,  certain  restrictions  are  imposed 
upon  the  assignments  and  uses  of  induction  variables. 

Whenever  an  induction  variable  is  defined  in  the  looj  before  it  is 
used,  vectorization  can  occur. 

Example: 


FOR  i  IN  1. .100 

LOOP 

j  :=  j  +  2; 

a  { j  )  :=  b(i) 

*  10; 

k  :=  i  *  2; 

c (k)  :=  b( j) 

*  20; 

END  LOOP; 

The  range  of  values  for  j  and  k  can  be  determined  as  a  function 
of  the  loop  index  variable  i,  and  their  definitions  and  uses  can 
be  vectorized. 

However,  when  an  induction  variable  such  as  k  is  used  before  it 
is  defined  (swap  the  third  and  fourth  statements  shown 
previously),  the  loop  is  not  vectorizable.  The  first  iteration  of  the 
loop  would  have  to  be  executed  separately  to  account  for  the 
initial  value  of  k. 
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Other  restrictions 
3.3.1.1.2 


Data  dependence 
3.3. 1.2 


Dependence  types 
3.3.1.3 


Flow  dependence 
3.3.1.3.1 


For  CII  variables  such  as  j ,  vectorization  will  occur  regardless  of 
whether  they  are  used  before  they  are  defined. 

Other  restrictions  are  the  following: 

•  Induction  variables  must  be  integers. 

•  A  CII  can  be  self-incrementing  or  self-decrementing  with  -t-  and 

The  CII  variable  must  be  on  the  left-hand  side  of  a  subtraction 
sign.  For  example,  the  following  is  not  a  valid  CII. 

j  :=  10  -  j; 

•  Induction  variables  cannot  be  assigned  to  an  IF  or  a  CASE 
construct. 


Data  dependence  is  an  ordering  relationship  between  two 
statements  that  use  or  produce  the  same  data.  This  ordering 
must  be  preserved  in  order  to  generate  the  same  results.  The 
analysis  of  data  dependence  determines  whether  the  statements 
can  be  vectorized  without  violating  this  ordering. 

This  section  first  describes  the  vario\is  types  of  dependence 
relationships  between  two  statements.  Following  this  is  a 
discussion  of  the  ways  these  relationships  affect  the 
vectorization  of  a  given  loop. 


The  types  of  dependence  are  flow  dependence,  antidependence, 
output  dependence,  and  unknown  dependence.  These 
dependence  types  describe  the  relationship  between  two 
statements  and  a  single  variable  (scalar  or  array  reference),  and 
how  that  relationship  affects  the  execution  of  the  loop. 

Statement  s2  is  flow  dependent  on  statement  si  if  an  execution 
path  exists  from  si  to  s2  £ind  the  same  variable  (scalar  or  array 
element)  is  assigned  in  statement  si  and  used  in  statement  s2. 

Example  1; 

FOR  i  IN  1.  .100  LOOP 
si:  a(i)  :=b(i)  *  5; 
s2:  c  (i)  :=  a  (i)  -t-  3  ; 

END  LOOP; 
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In  this  example,  s2  is  flow  dependent  on  statement  si.  The 
order  of  these  two  statements  must  be  preserved  so  that  the 
value  of  a  ( i )  is  produced  before  it  is  used.  Vectorization  of  this 
loop  does  not  violate  this  ordering. 

Table  2,  is  a  work  tableau  showing  the  execution  of  the  iterations 
of  this  loop.  The  columns  indicate  the  loop  iterations  as  the  loop 
index  variable  increases,  and  the  rows  show  the  iterations  in 
which  the  statements  indicated  define  or  use  a  value.  Each 
arrow  points  fi'om  a  statement  that  defines  a  value  to  a 
statement  that  uses  that  value. 


Table  2.  Example  1  work  tableau 


i=  1 

i  =  2 

i  =  3 

...  i  =  100 

si 

1 

si 

1 

si 

1 

...  si 

1 

s2 

k 

s2 

♦ 

s2 

i 

...  s2 

The  vertical  arrows  indicate  that  the  value  computed  in  the 
given  iteration  of  the  loop  is  used  by  s  2  in  the  same  iteration. 
This  is  true  in  Example  2. 

Example  2: 

FOR  i  IN  1..100  LOOP 
si:  a(i)  :=  b(i)  *  5; 
s2:  b(i+l)  :=  c(i)  +  3; 

END  LOOP; 

In  example  2,  si  is  flow-dependent  on  s2  across  an  iteration  of 
the  loop.  The  value  of  b  ( i+ 1 )  must  be  computed  in  each 
iteration  before  it  is  used  in  the  next  iteration.  Therefore,  this 
loop  cannot  be  vectorized  as  it  is  written.  A  transformation 
called  statement  reordering  can  be  performed  to  switch  the  order 
of  the  statements  and  allow  vectorization  to  occur.  This 
transformation  can  automatically  be  done  by  vectorization. 

The  work  tableau  in  Table  3  shows  why  the  loop  does  not  have 
independent  iterations. 
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Anti  dependence 
3.3.1.3.2 


Table  3. 

Example  2  work  tableau 

i  =  1 

II 

to 

i  =  3 

...  i  =  100 

si 

si 

si 

...  si 

s2 

s2 

s2 

...  s2 

The  diagonal  arrows  show  that  a  cross-iteration  dependence 
exists  because  the  values  set  by  s2  are  not  used  until  the  next 
iteration.  For  cases  such  as  this,  a  compiler  automatically 
reorders  statements  si  and  s2,  resulting  in  the  following 
tableau  in  Table  4. 


Thble  4.  Example  2  reordered  work  tableau 


Although  the  cross-iteration  dependence  still  exists  from  s2  to 
si,  the  loop  is  now  vectorizable  because  all  of  the  computations 
for  b  performed  in  iterations  1  through  100  will  be  done  before 
(hence,  the  downward  direction  of  the  arrows)  those  values  of  b 
are  used  in  statement  si. 

Statement  s2  is  anti  dependent  on  statement  si  if  an  execution 
path  exists  from  si  to  s  2  and  if  the  same  vauiable  (scalar  or 
array  element)  is  used  by  si  and  assigned  by  s2. 

Example  3: 

FOR  i  IN  1..100  LOOP 
si:  a(i)  :=  b(i)  *  5; 
s2:  b{i)  :=  c(i)  +  3  ; 

END  LOOP; 
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3.3.1.3.3 


In  example  3,  s2  is  anti  dependent  on  si.  The  order  of  these  two 
statements  must  be  preserved  so  that  the  value  of  b  ( i )  is  used 
before  it  is  redefined.  Vectorization  does  not  violate  this 
ordering.  This  loop  has  the  same  execution  tableau  as  does 
Table  2,  page  29. 

Example  4; 

FOR  i  In  1..100  LOOP 
si:  a(i)  :=  5; 
s2:  b(i)  ;=  a{i+l)  +  3 ; 

END  LOOP; 

Example  4  shows  that  si  is  antidependent  on  s2  across  the 
iterations  of  the  loop.  The  loop  can  be  vectorized  only  if  the 
statements  are  reordered  in  a  way  similar  to  that  as  in  Example 
2  and  Table  3,  page  30  and  Table  4,  page  30.  The  statement 
reordering  can  be  done  automatically  here  as  well. 

Statement  s2  is  output  dependent  on  statement  si  if  an 
execution  path  exists  fi-om  si  to  s2  and  if  the  same  variable 
(scalar  or  array  element)  is  assigned  in  both  statements. 

Example  5: 

FOR  i  In  1..100  LOOP 
si:  b(i)  :=  5; 
s2:  b(i)  :=  a(i+l)  +  3; 

END  LOOP; 

In  example  5,  s2  is  output  dependent  on  si.  That  is,  the  value 
computed  for  b  ( i )  in  si  is  recomputed  (overwritten)  in  s2.  This 
type  of  dependence  has  the  same  properties  as  flow  and 
antidependence  in  terms  of  cross-iteration  dependencies  and 
statement  reordering. 
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3.3. 1.3.4 


Recurrence 

3.3.1.3.5 


Sometimes  the  dependence  relationship  between  statements 
cannot  be  determined.  This  r.an  happen  in  czises  such  as  the 
following: 

•  A  subscript  is  subscripted  (indirect  addressing). 

•  The  subscript  does  not  contain  the  loop  variable. 

•  A  variable  appears  more  than  once  with  subscripts  having 
different  coefficients  of  the  loop  variable. 

•  The  subscript  is  nonlinear  with  respect  to  the  loop  variable. 

When  one  of  these  cases  occurs,  the  compiler  assumes  that  a 
dependence  exists  and  will  not  vectorize  the  loop.  However,  if 
you  know  the  code  well  enough  to  know  that  a  dependence 
cannot  exist,  inserting  a  pragma  VECTORIZE_LOOP  will  allow 
vectorization  to  occur. 

Recurrences  are  the  result  of  data  dependence  cycles  between 
statements  and  variables  in  the  loop.  This  occurs  when  one  or 
more  statements  are  in  dependence  with  each  other.  For 
example: 

Example  6: 

FOR  i  In  1. .100  LOOP 
si:  a(i)  :=  b(i-l)  •  5; 
s2:  b{i)  :=  a(i)  +3; 

END  LOOP; 

In  example  6,  s2  depends  on  si  for  a  ( i ) ,  and  si  depends  on  s2 
for  b  ( i ) .  This  loop  is  not  vectorizable  becaiise  s  1  uses  values  of 
b  calculated  on  previous  iterations  of  the  loop.  The  execution 
tableau  for  the  loop  with  respect  to  b  is  the  same  as  that  in 
Table  3,  page  30,  and  Table  4,  page  30,  showed  that  statement 
reordering  could  remove  this  dependence.  However,  that  is  not 
the  case  here,  because  there  is  also  the  dependence  &om  si  to 
s2  for  a  ( i ) .  This  dependence  prohibits  reordering  because 
doing  so  would  cause  incorrect  values  of  a  ( i )  to  be  used  in  s2. 
This  is  called  a  multistatement  recurrence  or  cycle. 

Another  type  of  recurrence  involves  a  single  statement  and  one 
variable. 
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Example  7 : 

FOR  i  IN  1..100  LOOP 
sl:  a(i  +  1)  :=  a(i)  *5; 

END  LOOP; 

Here,  there  are  two  dependencies:  an  antidependence  from  a  ( i ) 
to  a  { i  +  1 )  in  the  same  iteration  of  the  loop,  and  from 
a  ( i  +  1 )  to  a  ( i )  across  an  iteration  of  the  loop.  This  is  called 
a  single-statement  recurrence  and  is  not  vectorizable. 

Recurrences  also  occur  for  scalar  variables. 

Example  8: 

FOR  i  IN  1..100  LOOP 
sl:  a(i)  :=  b(i)  *  x; 
s2:  x:=  a(i)  •  10; 

END  LOOP; 

Example  8  has  the  same  properties  as  that  of  example  6,  with 
the  cross-iteration  dependence  of  sl  on  s2  with  x.  This  loop  is 
not  vectorizable.  A  situation  similar  to  that  in  example  7  occurs 
with  scalars  for  a  single  statement  recurrence.  For  example; 

Example  9: 

FOR  i  IN  1..100  LOOP 
s  1 :  X  :  =  x  •  a  ( i )  ; 

END  LOOP; 

The  same  dependencies  exist  in  example  8  as  in  example  7  with 
respect  to  x.  There  is  a  difference  in  example  9,  however, 
because  this  is  actually  a  vectorizable  reduction. 

Certain  recurrences  involving  array  references  are  vectorized  by 
the  Cray  Ada  compiler. 

Example  10: 

FOR  i  IN  1..100  LOOP 
sl:  a(i  +10)  :=  a(i)  *  b(i)  ; 

END  LOOP; 

The  recurrence  in  example  10  begins  on  the  eleventh  iteration 
and  every  iteration  subsequent  to  that.  The  eleventh  iteration  is 
when  the  value  of  a  ( i )  will  be  that  which  was  computed  on  the 
first  iteration.  The  first  ten  iterations  are  vectorizable,  however, 
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Vectorizations 
performed  by  Cray  Ada 

3.3.2 


Vectorization  loop  forms 
3.3.2.1 


Loop  exiting 
3.3.2.1.1 


FOR  loops 
3.3.2.1.2 


because  values  computed  there  are  not  used  on  subsequent 
iterations  up  to  the  eleventh.  This  sort  of  partial  vectorization 
occurs  for  recurrences  whenever  at  least  three  iterations  are 
proven  to  be  independent. 


The  Cray  Ada  2.0  compiler  performs  a  subset  of  the  possible 
vectorizations.  The  following  is  a  list  of  the  kinds  of  Ada 
constructs  that  the  Cray  Ada  vectorizer  supports.  These  are 
explained  further  in  the  following  subsections. 

•  FOR,  while  and  loop  loops 

•  Float,  integer.  Boolean,  and  enumerated  t3rpes  and  subtypes 

•  Single  and  multidimensional  arrays 

•  Most  Ada  operators 

•  Reduction  operations 

•  Single-level  IF  statements  within  loops 

•  Single-level  CASE  statements  within  loops 

•  Sequence  operations 


Loops  that  vectorize  must  be  of  suitable  form.  The  rules  for 
constructing  loops  with  these  forms  and  examples  are  defined  in 
the  following  subsections. 

Vectorizable  loops  may  not  be  exited  by  any  method  other  than 
those  described  in  the  foUowing  subsections.  Loops  with 
multiple  exits  are  not  vectorized  with  the  Cray  Ada  2.0  compiler. 

FOR  loops  with  either  forward  or  reverse  directions  are 
supported.  The  loop  parameter  or  index  of  a  FOR  loop  is 
restricted  for  enumerated  t3Tpes. 

The  discrete  range  of  the  loop  pau^ameter  must  not  be 
discontinuous.  For  Cray  Ada  2.0,  the  enumerated  t3rpe  is 
restricted  from  being  defined  by  an  enumeration  representation 
clause. 
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while  loops 
3.3.2.1.3 


Example: 


Type  Codes  IS  (A, 

B,  C, 

D, 

E,  F)  ; 

FOR  Codes  USE 

(A  =  >  1,  B  =  > 

5,C=> 

6, 

D=8,  E=>9,  F=>10); 

FOR  Code  IN  Codes 

LOOP 

End  Loop 

In  this  example.  Code  would  successively  take  on  the  values  1,5, 
6,  8,  9,  and  10.  Values  2  through  4  and  7  woxild  be  xmused.  The 
gaps  in  the  range  cause  the  loop  to  be  not  vectorized. 


A  :  array  (INTEGER  range  1  ..  100)  of  float; 
B  :  array  (INTEGER  range  1  ..  50)  of  float; 
I,  J  :  Integer; 

Inc  :  Integer; 


For  I  in  1  ..  50  loop  — Forward  step 
Ad)  :  =  B  ( I )  ; 

End  Loop; 

For  I  in  Reverse  1  . .  50  loop  — Reverse  step 
Ad)  :  =  B  ( I )  ; 

End  Loop; 


Both  fixed  and  variable  increment  loops  vectorize.  The  form  of 
the  while  condition  is  restricted  to  the  following  forms: 

<expression>  <test>  <index  variable> 

<index  variable>  <tzst>  <expression> 

The  <expression>  must  be  loop  invariant.  The  <test>  may  be  any 
relational  operator. 

The  loop  increment  must  be  the  last  statement  in  the  loop  smd 
one  of  the  following: 
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<index  variablo  :  =  <index  variable>  +  <increment 
expression> 

<index  variablo  :=  <index  variable>  -  <increment  expression> 

The  <increment  expression>  must  be  loop  invariant.  The  <index 
variable>  must  be  invariant  within  the  loop. 

The  following  are  examples  of  vectorizable  while  loops; 


A  :  array  {INTEGER  range  1  ..  100)  of  float; 
B  :  array  (INTEGER  range  1  ..  50)  of  float; 
I,  J  :  Integer; 

Inc  :  Integer; 


While  I  >  10  loop 
Ad)  :=  B(I)  ; 

I  :  =  I  -  2 ;  — Fixed  increment  WHILE  loop 

end  loop; 

While  J  <=  50  loop 
A(J)  :=  B(J) ; 

J  :  =  J  +  Inc ;  — Variable  increment  WHILE  loop 

end  loop; 


loop  loops  Both  fixed  and  variable  increment  loops  vectorize.  The  following 

3.3.2.1.4  are  loop  form  requirements. 

The  loop  index  increment  or  decrement  statement  must  either 
precede  directly  or  follow  the  exit  statement. 

Only  one  exit  may  be  present  in  the  loop.  The  exit  must  be 
either  the  last  statement  in  the  loop  or  the  next-to-last 
statement  followed  by  the  increment  or  decrement  of  the  loop 
index.  The  exit  statement  must  be  in  one  of  the  following  two 
forms: 

IF  <expression>  THEN 
EXIT 
END  IF; 


EXIT  WHEN  <expression> ; 
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Vectorization  constructs  in 

loops 

3.3.2.2 


IF  Statement 
3.3.2.2.1 


The  form  of  the  loop  condition  is  restricted  to  the  following; 
<expression>  <test>  <index  variable> 

<index  variable >  <test>  <expression> 

The  following  are  loop  loop  examples; 


I  :=  40; 

LOOP 

A(I)  :=  B(I)  ; 

I  :=  1-3; 

EXIT  WHEN  I  <=  0; 
END  LOOP; 


J  :=  2; 

LOOP 

A(J)  :s  B(J) 

J  :=  J  +  Inc; 
IF  J  >  20  THEN 
EXIT; 

END  IF; 

END  LOOP; 


A  loop  that  has  one  of  the  allowable  vectorizable  forms  may 
vectorize  if  the  contents  of  the  loop  are  themselves  vectorizable. 
The  vectorizable  Ada  statement  patterns  for  Cray  Ada  2.0  are 
defined  in  this  section. 

Simple  singledevel  If/  Then  /  Elsif/Else  constructs  will 
vectorize  if  the  construct  is  within  a  vectorizable  loop  structure. 
In  the  following  example,  there  Eue  no  dependencies  in  the  vise 
and  assignments,  so  the  i  f  statement  will  vectorize; 
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CASE  Statement 
3.3.2.2.2 


EXIT  Statement 
3.3.2.2.3 


A  :  array  (INTEGER  range  1  ..  100)  of  float; 
B  :  array  (INTEGER  range  1  ..  100)  of  float; 


For  I  in  1  . .  100  loop 
If  A (I)  >  0.0  then 
A(I)  :=  A(I)  /  B(I)  ; 
Elsif  A(I)  <  0.0  then 
Ad)  ;=  Ad)  -  1; 
Else 

Ad)  ;=  -1.0; 

End  if; 

End  loop; 


Simple  single-level  CASE  statement  will  vectorize  if  the 
statement  is  within  a  vectorizable  loop  structure.  In  the 
following  example,  there  are  no  dependencies  in  the  use  and 
assignments,  so  the  CASE  statement  will  vectorize: 


A  :  array 

( INTEGER 

range 

1  .  . 

100) 

of 

float ; 

B  :  array 

( INTEGER 

range 

1  .  . 

100) 

of 

float ; 

C  :  array 

( INTEGER 

range 

1  . . 

100) 

of 

float ; 

For  I  in  3  . .  63  loop 
Case  I  is 
When  6  => 

Ad)  :=  Bd)  : 
When  8  =>; 

Ad)  :=  12*B(I)  : 
When  Others  => 

Ad)  :=  Cd)  ; 

End  Case; 

End  loop; 


The  EXIT  statement  may  occur  only  as  previously  discxissed  for 
the  allowable  loop  forms. 
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Reductions 

3.3.2.2.4 


Reductions  are  a  special  class  of  computations  that  reduce  an 
array  of  values  to  a  single  scalar  result.  These  computations  can 
be  vectorized  under  certain  conditions. 

The  following  are  examples  of  vectorizable  reductions; 

Example  1: 

FOR  i  IN  1..100  LOOP 
Sl:  x:=  X  +  a{i); 

s2:  y:=  (b(i)  *  d(i) )  *y; 

s3 :  z:=  z  -  c (i) ; 

s4 :  xl  : =  xl  /  e  (i ) ; 

END  LOOP; 

Arithmetic  reduction  operations  involving  integer  and 
floating-point  addition,  subtraction,  multiplication,  and 
floating-point  division  are  aU  vectorizable.  For  subtraction  and 
division,  however,  the  scalar  reduction  variable  must  be  on  the 
left-hand  side  of  the  -  or  /. 

For  example,  the  following  will  not  be  vectorized.  In  addition, 
reductions  are  only  supported  for  floating-point  data  types. 

Example  2: 

FOR  i  IN  1..100  LOOP 
sl:  X  :=  a(i)  -  x; 
s2:  y  :=  b(i)  /  y; 

END  LOOP; 

The  reduction  variable  must  be  a  scalar  variable  or  an  invariant 
array  reference  such  as  an  array  with  a  constant  subscript,  as  in 
the  following; 

FOR  sl:  ad)  :=  ad)  *  b(i); 
s2:  a(c)  :=  a(c)  +  b(i);  -  c  is  a  constant 

END  LOOP; 

The  expression  from  which  the  result  is  reduced  can  be 
arbitrarily  complex. 
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TVpes  of  reductions 
3.3.2.2.5 


Expression  elements 
3.3.2.3 


The  base  types  of  vectorization  reductions  are  integer,  float,  and 
Boolean.  Examples  of  Boolean  reductions  are  the  following: 

For  i  IN  1. -100  LOOP 
si:  x:=  X  AND  Bool_A(i) 
s2:  y:=  y  OR  (Bool_A(i)  AND  Bool_B(i); 
s3:  z:=z  XOR  Bool_B(i); 

END  LOOP; 

Reductions  involving  searches  for  the  minimum  or  maximiun 
value  of  an  array  are  vectorizable  as  well,  as  shown  in  the 
following  examples: 


FOR  i  IN  1. .100  LOOP 
IF  s  <  a(i)  THEN 
s  :  =  a  ( i )  ; 

END  IF; 

END  LOOP; 


FOR  i 

IN 

1.  .100  LOOP 

IF  t 

> 

a(i)  THEN 

t 

:  = 

a  ( i ) ; 

END 

IF, 

END  LOOP 

The  first  loop  represents  a  max  reduction  and  the  second  loop  is 
a  min  reduction  where,  at  the  end  of  the  loop,  the  scalar  variable 
will  contain  the  maximum  or  minimum  value  of  the  array. 

Min/Max  reductions  can  be  vectorized  only  when  the  data  types 
are  integer  or  float,  and  when  the  IF  statement  contains  no 
other  code  besides  the  reduction  assignment  statement.  The 
reduction  variable  can  be  an  invariant  array  reference  as  with 
other  reductions. 


Some  of  the  allowable  elements  of  expressions  that  may  appear 
in  vectorizable  Cray  Ada  constructs  are  described  in  the 
following  subsections. 
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The  closer  the  compiler  comes  to  knowing  the  range  of  values  an 
object  may  take  on,  the  better  the  possibility  of  vectorization. 
This  is  particularly  true  in  index  expressions.  The  following  is 
an  example: 

FOR  Index  In  1..100  LOOP 
Offset  :=  Offset  +  1; 

A (Index)  :=  B(2*Index  +  3*Offset  -  2); 

END  L(X)P; 

Operators  All  of  the  logical,  relational  and  binary  adding  operators  are 

3.3.2.3.2  supported,  with  the  exception  of  &.  The  highest-precedence 

operators  are  supported  as  well. 

Gather/scatter  operations  Gather/scatter  operations  are  those  involving  nonstep-wise 

3. 3. 2.3. 3  access  to  an  array.  These  operations  are  supported  as  long  as 

overlap  can  not  be  found  in  the  array  references.  For  example, 
the  following  loop  will  automatically  vectorize  because  there  are 
no  dependencies: 


Array  references 
3.3.2.3.1 


A 

:  array 

(INTEGER 

range 

1 

..  100) 

of 

float 

B 

:  array 

( INTEGER 

range 

1 

..  100) 

of 

float 

C 

;  array 

( INTEGER 

range 

1 

..  100) 

of 

float 

D 

:  array 

( INTEGER 

range 

1 

..  100) 

of 

float 

For  I  in  1  . .  100 

loop 

A(I)  :=  B(D(I) ) ; 

— Gather 

C(D(I) )  :=  B(I) ; 
END  LOOP; 

— Scatter 

For  I  in  1  . .  100 

loop 

A(I)  :=  B(I**4) ; 

— Gather 

0(1/2)  :=  B(I) ; 
End  Loop; 

— Scatter 

If  the  compiler  cannot  prove  that  no  dependency  exists,  it  wiU 
not  vectorize  the  loop.  In  these  cases,  if  you  are  certain  that  no 
dependency  exists,  pragma  '/ECTORIZE_LOOP  can  be  used 
immediately  before  the  loop  to  attempt  to  force  vectorization. 
See  page  65  for  more  information  on  pragma  VECTOR  I  ZE_LOOP. 
An  example  in  which  this  pragma  is  required  for  the  loop  to 
vectorize  is  the  following: 
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array  (INTEGER  range  1 
array  (INTEGER  range  1 
array  (INTEGER  range  1 


.  100)  of  float; 

.  100)  of  integer; 
.  100)  of  integer; 


Pragma  VECTORIZE_LOOP (on) ; 

For  I  in  1  . .  100  loop 

A(B{I))  :=A(C(I);  — This  will  vectorize  because  of 

End  Loop;  — ^VECTORIZE_LOOP Pro^/Tia 


The  VECTORlZE_LOOP  pragma  affects  only  the  loop  immediately 
following  it. 


Vectorizable  scalar  types 
3  3  2  4 


Most  objects  defined  as  Ada  types  integer,  float.  Boolean,  and 
character  are  allowable  for  vectorization.  Variables  defined  as 
an  enumerated  type  are  also  vectorizable. 


Vectorizable  array  types 
3.3.2.5 


Arrays  whose  components  are  of  a  vectorizable  scalar  type  can 
be  vectorized. 


Vectorizable  record  types  Records,  discriminated  or  not,  whose  referenced  components  are 

3. 3.2.6  of  a  vectorizable  scalar  or  array  t3rpe  are  vectorizable.  However, 

only  the  final  record  referenced  in  a  given  record  component 
qualification  may  be  discriminated. 


42 


Cray  Reeaarch,  Inc. 


SR-3082  2.0 


Cray  Ada  Environment,  Volume  2:  Programming  Guide 


Optimization  and  Vectorization 


Vectorizable  library 

interfaces 

3.3.2.7 


Example: 


TYPE  Ar  IS  ARRAY  (1..100)  OF  FLOAT 
TYPE  R1  (S  :  Boolean  :=  True)  IS 
RECORD 

CASE  S  IS 

WHEN  True  => 

A  :  Ar; 

WHEN  False  => 

B  :  Integer; 

END  CASE; 

END  RECORD 
TYPE  R2  IS 
RECORD 

C  :  Ar; 

D  ;  Rl; 

END  RECORD 
VI  :  Rl; 

V2  :  R2; 


FOR  I  In  1. .100  LOOP 
Vl.A(I)  :=  V2.D.A(I) ; 
END  LOOP; 


As  a  general  rule,  subprogram  calls  in  loop  bodies  inhibit 
vectorization.  However,  certsdn  of  the  subprograms  described  in 
“Library  Interface,”  page  119,  are  available  in  vector  versions, 
and  thus,  loops  containing  calls  to  these  routines  can  still  be 
vectorized  as  long  as  no  other  vectorization  inhibitors  are 
present. 

Vectorizable  functions  are  the  following: 

•  Trigonometric  functions,  which  include  the  following: 

Sin,  Cos,  Tan,  Cot,  Asin,  Acos,  Atan,  Atan2 

•  Hyperbolic  trigonometric  functions,  which  include  the 
following: 

Sinh,  Cosh,  Tanh 
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Constructs  that  do  not 
vectorize 

3.3.3 


String  variables, 
constants,  and  operations 
3.3.3.1 


•  Logarithmic  functions,  which  include  the  following: 

Log,  LoglO,  **,  Exp,  Sqrt 

•  Boolean  array  routines,  which  include  the  following: 

Leadz,  Popcnt,  Shiftl,  Shiftr 

•  Miscellaneous  arithmetic  functions,  which  include  the 
following: 

Sign,  Trunc,  Ranf 

The  vector  versions  of  these  routines  3deld  the  same  results  as  do 
the  scalar  versions,  except  that  under  certain  circumstances,  the 
vector  version  of  Ranf  may  produce  pseudo-random  numbers  in 
a  different  order  than  would  the  scalar  Ranf.  Programs  that 
might  be  sensitive  to  this  should  be  written  and  compiled  in  such 
a  way  that  they  always  use  the  same  version  of  Ranf  (scalar  or 
vector). 


The  following  subsections  describe  Ada  language  constructs  that 
inhibit  vectorization.  This  is  not  an  inclusive  list,  but  it  provides 
guidelines  to  assist  you  in  writing  vectorizable  code.  The  best 
way  to  determine  whether  a  specific  structure  will  vectorize  is  to 
compile  the  source  code,  using  list  options  that  provide  details  on 
the  constructs  that  vectorized. 

The  subsections  contain  information  on  the  constructs  that  will 
probably  always  inhibit  vectorization  along  with  those 
constructs  that  could,  in  theory,  be  vectorized  but  are  not  in  Cray 
Ada  2.0.  For  many  of  the  constructs  that  can  be  theoretically 
vectorized,  information  is  provided  to  guide  users  in  revising 
their  code  to  allow  vectorization  with  Cray  Ada  2.0. 

Using  pragma  Vectorize_Loop  has  no  effect  on  most  loops 
described  here.  This  pragma  can  be  used  to  teU  the  compiler 
only  that  potential  dependencies  are  not  true  dependencies. 


Using  strings  in  any  context  inside  a  loop  will  inhibit 
vectorization.  For  example,  the  following  will  not  vectorize: 
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Fixed-point  variables, 
constants,  and  operations 


Access  type  variables, 
constants,  and  operations 
3.3.3.3 


S  :  String ( 1 . . 10 ) ; 


FOR  I  IN  1..10  LOOP 

S  ( I )  :  =  'O';  — This  will  not  vectorize 

END  LOOP; 


Loops  containing  fixed-point  variables,  constants,  or  operations 
inhibit  vectorization. 

Example: 


TYPE  F  IS  DELTA  .01  RANGE  .0  . 
A,  B  :  ARRAY (1 . .10)  OF  F; 

.  1.0; 

FOR  I  IN  1..10  LOOP 

Ad)  :=A(I)  +B(I); 

END  LOOP; 

On  Cray  Research  systems,  fixed-point  arithmetic  is  always 
much  slower  than  either  integer  or  floating-point  arithmetic. 
Converting  fixed-point  types  to  floating-point  subtjrpes  makes 
vectorization  possible.  This  is  true  for  only  multiplication  and 
division,  and  a  loss  of  accuracy  will  result. 


Loops  containing  access-type  veuriables,  constants,  or  operations 
inhibit  vectorization. 
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Array  types  with 
nonvectorizable 
components 
3.3.3.4 


Record  types  with 
nonvectorizable 
components 
3.3.3.5 


Example: 


TYPE  ACC  IS  ACCESS  INTEGER; 

A,  B:  ARRAY  (1  ...100)  OF  ACC; 

FOR  I  IN  1. . .100  LOOP 
Ad)  :  =  B  ( I )  ; 

END  LOOP; 


Arrzys  with  components  of  types  record,  array,  or 
nonvectorizable  data  types  are  not  vectorizable. 


Records  whose  referenced  components  are  not  of  a  vectorizable 
data  type  can  not  be  vectorized.  Record  references  whose 
qualification  path  includes  more  than  on"  discriminated  record, 
or  that  contain  a  discriminated  record  that  is  not  the  final  record 
referenced  in  the  path,  are  not  vectorizable. 
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Example; 


TYPE  RO  (R0_Kind  :  INTEGER)  IS 
RECORD 

aO  :  INTEGER; 

CASE  Kind 
WHEN  1  => 

al  :  Array _Typel; 
WHEN  2  => 

a2  :  Array _Type2 ; 
WHEN  OTHERS  => 

NULL; 

END  CASE; 

END  RECORD; 

TYPE  R1  (Rl_Kind  :  INTEGER)  IS 
RECORD 

CASE  Kind 
WHEN  1  => 

a  :  RC (R0_Kind  =>  1) ; 
WHEN  2  => 

b  :  RO (R0_Kind  =>  2) ; 
WHEN  OTHERS  => 

NULL; 

END  CASE; 

END  RECORD; 

TYPE  R2  IS 
RECORD 

c  :  INTEGER; 
d  :  RO  (Kind  =>  1 '  ; 

END  RECORD; 
vl  :  R1 (Kind  =>  2 )  ; 
v2  :  R2 ; 


FOR  in  IN  1 . . 100  LOOP 

v2.d.a.al(i)  :=  vl.b.a2(i); 
END  LOOP; 


The  previous  loop  is  not  vectorizable  because  there  are  two 
discriminated  records  referenced  in  the  qualification  path  ( d .  a 
and  vl  .b). 
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Another  limitation  in  the  vectorization  of  records  involves 
multiple  unconstrained  or  dynamically  allocated  components  in 
a  single  record.  This  includes  combinations  of  imconstrained 
arrays  and  discriminated  record  components  whose  sizes  cannot 
be  determined  at  compilation.  Whenever  a  record  component 
that  follows  an  indeterminably-sized  component  in  the 
record-type  specification  is  referenced,  vectorization  of  that 
reference  cannot  occur. 

Example: 


PROCEDURE  Example  (Size  :  IN  INTEGER)  IS 

TYPE  Array_Tv'pel  IS  ARRAY  (INTEGER  RANGEo)  OF  INTEGER; 
TYPE  RO  (R0_Kind  :  INTEGER  )  IS 
RECORD 

aO  :  INTEGER; 

CASE  Kind 
WHEN  1  => 

al  :  Array _Typel ( 1 .. Size) : 

WHe^  2  => 

a2  ;  Array_Typel (1. .Size) ; 

WHEN  OTHERS  => 

NULL; 

END  CASE; 

END  RECORD; 

TYPE  R1  IS 
RECORD 

bO  :  INTEGER 

bl  ;  RO  (R0_Kind  =>  1 )  ; 

b2  :  ARRAY  (1..100)  OF  lOTEGER; 

END  RECORD; 

TYPE  R2  IS 
RECORD 

cO  :  INTEGER 

cl  :  Array_Dr'pel  (1 .  .  Size) 
c2  :  RO  (Kind  =>  1 ) ; 

END  RECORD; 

BEGIN 


END  EXAMPLE; 
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Packed  data 
3.3.36 


Procedure  and  function 

calls 

3.3.3.7 


Explicit  function  and 
procedure  calls 
3.3.3.7.1 


References  to  components  b2  of  record  R1  and  c2  of  record  R2 
will  not  be  vectorized  because  the  size  of  components  bl  and  cl, 
respectively,  are  not  known  at  compile  time.  However, 
references  to  components  bO  and  bl,  and  cO  and  cl  are 
vectorizable. 

The  use  of  pragma  PACK  or  explicit  packing  of  data  by 
representation  specifications  inhibits  the  vectorization  of  any 
object  of  that  type.  The  example  that  follows  will  not  vectorize: 


SUBTYPE  Byte  IS  Integer  RANGE  0..255; 
TYPE  Byte_Array  IS  ARRAY  (1..8)  OF  Byte; 
PRAGMA  Pack (Byte_Array ) ; 

Byte_Obj:  Byte_Array; 


FOR  I  IN  1 . . 8  LOOP 

Byte_Obj(I)  :=  Byte_Obj(I)  MOD  4; 
END  LOOP; 


Procedure  and  function  calls  that  are  not  inhned  inhibit 
vectorization.  The  only  exceptions  to  this  are  most  Cray 
Research  vectorizable  library  interface  routines  and  most 
predefined  Ada  attribute  functions  that  are  fully  vectorizable. 
The  vectorization  inhibitors  include  the  following: 

•  Exphcit  function  or  procedure  cedis  that  are  not  inhned 

•  Ada  tasking  operations 

•  Ada  I/O  package  routines 

•  Ada  allocators 

•  Some  Ada  attributes 

•  Operations  on  some  composite  types 

Examples  of  each  of  these  vectorization  inhibitors  follow. 


The  following  example  will  not  vectorize  because  of  the 
procedure  call. 

Procedure  Prod  is  used  in  the  following: 
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SUBTYPE  Ar_Index  IS  Positive  RANGE  1..65; 
SUBTYPE  Ar_Value  IS  Ar_Index  RANGE  1..64; 
TYPE  Ar  IS  ARRAY  (Ar_Index)  OF  Positive; 

A  :  Ar  ; 

PROCEDURE  Proc2(I:  IN  Ar_Value)  IS 
B  :Ar; 

BEGIN 

FOR  Index2  IN  1 . . I  LOOP 

B { Index2 )  ; =  B ( Index2  +  1 )  ; 

END  LOOP; 

END  Proc2 ; 

PROCEDURE  Proc3(I  :  IN  Ar_Value)  IS 
BEGIN 

A(I)  :=  A(I  +  1) ; 

END  Proc3 ; 

BEGIN 

FOR  Index!  IN  1..63  LOOP 
Proc2 (IndexI ) ; 

END  LOOP; 

FOR  IndexI  IN  1..63  LOOP 
Proc3 (IndexI) ; 

END  LOOP; 

Proc2  (22)  ; 

END  Prod; 


Ada  tasking  operations 
3.3.3.72 


The  first  loop  in  Prod  will  not  vectorize  because  of  the  presence 
of  the  call  to  Proc2  within  the  loop.  The  body  of  Proc-  contains 
a  loop  that  will  vectorize.  The  second  loop  in  Prod  vectorizes 
because  of  the  automatic  inlining  of  the  call  to  Proc3.  Finally, 
the  call  to  Proc2  at  the  end  of  Prod  has  no  effect  on 
vectorization  other  than  the  prohibiting  of  the  inlining  of  Proc2 
in  the  first  loop  in  Prod .  This  is  true  unless  an  explicit  request 
was  made  on  the  command  line  to  inline  procedures  or  unless  a 
pragma  INLINE  is  used. 

Ada  tasking  operations  that  appear  in  the  body  of  a  loop  result 
in  procedure  and/or  function  calls.  The  appearance  of  such  calls 
inhibits  vectorization. 
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Example: 

■  TASK  TYPE  Translate  IS 
!  ENTRY  Read{C  ;  OUT  Integer); 
j  ENTRY  WritelC  :  IN  Integer); 

END  Translate; 

SUBTYPE  Kcy^Range  IS  Natural  RANGE  G,.255; 

TYPE  Xey_ values  IS  ARRAY (Key _Range)  OF  Integer; 
Int  :  Integer; 

:  Driver  :  Translate; 

I  Board  :  Key ^Values; 


task  body  translate  is 

.  .  .  — task  body  may  vectorize 

end  translate; 

for  Key  IN  Key_Range  LOOP 

Driver .  Read  i  Int  i  ;  —The  call  to  thtn  task  creates  a  function  call 
Board  ( Key )  =  Inc  ; 

END  LOOP; 

Ada  I/O  packape  routine  Ada  supports  I/O  by  standard  I/O  packages.  I/O  operations  are 

3.3.3,7.3  performed  by  calls  to  procedures  and  funcUons  contained  in  the 

packages.  Calls  to  these  routines  h.  loops  inhibit  veetorization. 

Example. 


WITH  Text_IC; 


value  :  array  (INTEGER  range  1  ..  100)  of 
^r.cager: 

I  .PACKAGE  Inc..IO  IS  NEW 
j  Text^IO.  incegeL'_XO  ( Integer  ;  ; 

■  FCP  index  IN  1..56  LOOP 

j  lnt_IC.  Put  (Value!  Index)  )  ;  — HO  call  irthU)its 

veetorization 

Va  i ue  ;  Index ;  :  -  Va  ^ue  ( I nce.x  i  i  ; 

END  LOO?; 
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Ada  allocators 

The  use  of  allocators  in  a  loop  inhibits  vectorization  because  they 

3.3.3.7.4 

result  in  procedure  and/or  function  calls  to  runtime  support 

routines. 

Example: 

I_Acc  :  ACCESS  Integer; 

A  :  array  (INTEGER  range  1  ..  100)  of  integer; 

FOR  I  IN  2 . . 12  LOOP 

I_Acc  :=  NEW  Integer; 

Ad)  :=  I_ACC.A11; 

END  LOOP; 

Ada  attributes 

Using  some  attributes  results  in  the  calling  of  procedures  and/or 

3.3.3.7.5 

functions.  These  calls  inhibit  vectorization.  Attributes  that  are 

functions  are  defined  as  such  in  Appendix  A  of  the  LRM. 

Example: 

TYPE  Codes  IS  (A,B,C,D 

E,F)  ; 

FOR  Codes  USE  (A=>  1,B: 

=>  5,C=>  6,D=>  320, E=>  321,F=>322); 

I  : 

Integer; 

S  : 

Codes ; 

A  : 

array  ( INTEGER  range 

1  ..  100)  of  integer; 

FOR 

J  IN  2.  .100  LOOP 

S 

: =  Integer ' Pred ( I ) ; 

— This  attribute  is  a  function 

A(J)  :=  0; 

END 

LOOP; 

Most  attribute  usages  do  not  result  in  calls  to  procedures  or 
functions.  Cases  that  result  in  calls  are  described  in  the 
remainder  of  this  subsection. 


62 


Cray  Raaaareh,  Inc. 


SR-3082  2.0 


Cray  Ada  Environment,  Volume  2:  Programming  Guide 


Optimization  and  Vectorization 


Most  attribute  usages  do  not  result  in  calls  to  procedures  or 
functions.  Cases  that  result  in  calls  are  described  in  the 
remainder  of  this  subsection. 


The  following  is  a  t3rpe  attribute  and  its  description: 


Attribute  Description 

Size  Involves  a  function  call  in  the  case  of 

objects  with  a  nonstatic  discriminated 
record  subtsTpe  having  at  least  two 
discriminants  or  having  a  single 
discriminant  with  a  very  large  or  nonstatic 
range. 

The  following  are  discrete  t5T)e  attributes  and  their 
descriptions: 


Attribute 

Image 

Value 


Pos,  Pred  and 
Succ 


Description 

A  string  returning  function. 

A  function  complementary  to  IMAGE ,  with 
a  string  parameter. 

These  attributes  are  implemented  by 
function  calls  only  when  applied  to  an 
enumeration  t3T)e  with  an  enumeration 
representation  clause  and  when  the 
enumeration  codes  span  a  range  of  more 
than  256  values.  Pos  is  used  implicitly  in 
places  such  as  FOR  loops  and  array 
indexing. 

Always  implemented  with  a  function  call. 

Which  include  the  following: 
EXTENDED_IMAGE,  EXTEND ED_V ALU E, 
EXTENDED_DIGITS,  EXTENDED_FORE, 
and  EXTENDED_AFT  a^’e  always 
implemented  with  function  calls. 

The  following  are  task  attributes  and  their  descriptions: 

Attribute  Description 

These  three  attributes  are  implemented  as 


Width 

Extended 

attributes 


Callable, 
count,  and 
terminated 


calls  to  functions. 


SR-3082  2.0 


Cray  Resaareh,  Inc. 


53 


Optimization  and  Vectorization  Cray  Ada  Environmeni,  ^}lume  2:  Programming  Guide 


•  The  following  are 

fixed-point  attributes  and  their  description: 

Attribute 

Description 

Fore, 

mantissa,  and 
large 

These  attributes  are  implemented  as 
function  calls  only  when  applied  to  a 
nonstatic  fixed-point  subtype. 

Exceptions  raised  within 
loops 

3.3.3.8 

Any  loop  in  which  exceptions  may  be  raised,  whether  predefined 
by  Ada  implementation  defined,  or  user  defined,  inhibits 
vectorization. 

Example: 

A  :  array  (INTEGER  range  1  ..  100)  of 
B  :  Integer; 

integer; 

For  I  in  1  . .  100  loop 

If  A(I)  =  0  then 

Raise  ZERO_VAL;  — User-defined  exception  inhibits  vectorization 
else 

A(I)  :=B/A(I); 
end  i f ; 
end  loop; 

Pragma  SUPPRESS  or  pragma  SUPPRESS_ALL  may  be  used  to 
suppress  all  exceptions  not  explicitly  raised  by  a  RAISE 
statement  and  allow  for  constructs  with  predefined  exceptions  to 
vectorize. 

^th  optimization  enabled,  the  compiler  attempts  to  remove  as 
many  of  the  predefined  exception  checks  as  it  determines  it  is 
safe  to  do.  However,  it  cannot  generally  remove  all  the  checks 
firom  the  loop,  lb  ensure  that  automatic  checks  are  not  included 
in  the  loop,  use  pragma  SUPPRESS  or  pragma  SUPPRESS_ALL 
inside  your  code.  Alternatively,  the  Ada  command-line  option  -i 
can  be  used  to  suppress  runtime  checks.  A  loop  will  not  be 
vectorized  if  any  checks  exist  in  the  loop. 
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Example: 


A  :  array  (INTEGER  range  1  ..  100)  of  integer; 


FOR  I  IN  2 . . 100  LOOP 

Ad)  :=  Ad  -  1);  — Vectorization  inhibited 

END  LOOP; 


You  could  rewrite  the  preceding  loop  so  that  it  would  vectorize, 
as  follows: 


A  :  array  (INTEGER  range  1  ..  100)  cf  integer; 
K  ;  Integer; 

K  :  =  A  ( 1 )  ; 

FOR  I  IN  2. .100  LOOP 

Ad)  :  =  K ;  — Vectorization  allowed 

END  LOOP; 


The  following  loop  cannot  be  rewritten  to  support  vectorization: 


A  : 

array  (INTEGER  range  1 

.  .  100)  of  integer; 

B  : 

array  (INTEGER  range  1 

.  .  100)  of  integer; 

FOR 

I  IN  2 . . 100  LOOP 

Ad)  :=  Ad)  -  Ad  -  1)  * 

B  ( I )  ; 

— Vectorization 
inhibited 

END 

LOOP ; 
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Dynamically -sized  objects 
declared  in  loops 

3.3.3.10 

Dynamically-sized  objects  declared  in  the  body  of  a  loop  inhibit 
vectorization. 

Example: 

For  I  in  501  . .  3000  loop 

Declare 

S  :  Array  (1  ..  I)  of  Integer;  — This  declaration  inhibits  vectoriztion 

begin 

Sd  -  500)  :=  S(I 
end; 

end  loop; 

)  +  2; 

Loops  with  dependencies  Some  loops  contain  multiple  dependencies  that  cannot  be 
3.3.3.11  removed  by  statement  reordering.  Consider  the  following  case: 


A  : 

array 

(INTEGER 

range  1 

..  101) 

of 

integer; 

B  : 

array 

(INTEGER 

range  1 

. .  101) 

of 

integer : 

C  : 

array 

(INTEGER 

range  1 

. .  101) 

of 

integer; 

D  : 

array 

(INTEGER 

range  1 

..  101) 

of 

integer; 

FOR 

I  IN  1 

..100  LOOP 

C(I+1)  : 

=  C(I)  * 

A(I)  +  D 

(I) ; 

D 

(I+l)  : 

=  C(I+1) 

*  Bd)  + 

Dd)  ; 

END 

LOOP; 

There  are  dependencies  on  both  object  C  and  object  D  that  cannot 
be  removed  by  the  compiler  or  by  simple  manual  reordering. 
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Conditional  dependencies  Some  loops  have  dependencies  that  the  compiler  cannot 
3.3.3.12  determine  at  compile  time  because  the  subscripts  are  based  on 

variables  that  are  not  known  until  execution  time.  These  loops 
do  not  vectorize.  Two  examples  are  the  following; 


If  K  <  0,  or  K  >  64  (the  Cray  Research  systems’  vector  length), 
there  is  no  dependency,  but  if  0  <  K  <  64,  this  is  a  true 
dependency.  Eecause  of  the  runtime  checks  required,  however, 
Cray  Ada  does  not  vectorize  either  case. 

Consider  the  following  example: 


A  :  array  (INTEGER  range  1  ..  101,  1  ..  101)  of  integer; 


For  I  in  1  . .  100  loop 
For  J  in  1  . .  1-1  loop 

A(I,J)  :=A(J,I);  — This  loop  does  not  vectorize 

end  loop; 
end  loop; 


This  loop  will  not  vectorize,  because  the  compiler  cannot 
determine  that  the  subscripts  do  not  overlap. 
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Array  with  noncontiguous  Arrays  declared  with  noncontiguous  index  ranges  do  not 
index  ranges  vectorize.  An  example  of  using  enumeration  types  follows; 

3.3.3.13 


TYPE  Error_Level  IS  (Comment,  Warning,  Fatal,  Abort); 

FOR  Error_Level  USE  (Comment  =>  2,  Warning  =>  6,  Fatal  =>  7,  Abort  => 
11)  ; 

TYPE  Error_Levels  IS  ARRAY (Error_Level )  OF  Integer; 

Levels  :  Error_Levels; 


FOR  Level  IN  Error_Level  LOOP 

Levels  (Level)  :=  Levels  (Level )  +  1;  — This  loop  will  not  vectorize 

END  LOOP; 


Scalar  recurrence 
3.3.3.14 


A  scalar  recurrence  is  an  instance  in  which  a  scalar  object  is  used 
in  a  loop,  then  later  changed  in  the  loop.  The  loop  cannot 
vectorize,  becaxise  the  value  from  the  previous  iteration  is 
necessary  to  complete  the  next  iteration.  An  example  of  this  is 
the  following; 
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Slice  operations 
3.3.3.15 


Vectorization  messages 
3.3.4 


Slice  operations  inhibit  vectorization.  The  following  is  an 
example  of  a  nonvectorizable  loop  with  slices: 


A  :  array 

(INTEGER  range 

1 

..  200) 

of  float; 

B  :  array 

(INTEGER  range 

1 

..  400) 

of  float; 

FOR  I  IN  1 

.  .10  LOOP 

FOR  J  IN 

5. .60  LOOP 

A(10  * 

I  .  .10  *  1  +  20) 

:=  B(J. 

.  J  +  20); 

END  FOR; 

END  FOR; 

The  vectorization  process  may  result  in  informative  messages 
that  indicate  the  following; 

•  Loops  that  vectorize 

•  Loops  that  do  not  vectorize 

The  reasons  that  loops  do  not  vectorize  are  listed  with  the 
error  messages.  These  messages  may  be  used  to  assist  in 
making  changes  in  order  to  make  loops  vectorizable.  The 
terminology  used  in  these  messages  is  explained  in  Cray  Ada 
Environment,  Volume  1:  Reference  Manual,  publication 
SR-3014. 

•  Performance  information 

Information  given  in  these  messages  is  intended  to  assist  in 
enhancing  the  performance  of  vectorized  code. 

A  failure  in  the  vectorization  process  is  signalled  with  an 
internal  error.  When  this  occurs,  vectorization  of  the  current 
loop  is  halted  and  the  loop  is  compiled  without  vectorization. 

For  a  detailed  explanation  of  possible  error  messages,  see  Cray 
Ada  Environment,  Volume  1:  Reference  Manual,  publication 
SR-3014. 
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Performance 

considerations 

3.3.5 


Users  of  Cray  Ada  2.0  may  enhance  the  vectorizabiUty  of  a 
program.  Several  general  rules  should  be  followed: 

•  Define  numeric  types  with  as  tightly  constrained  a  range  as 
possible.  In  the  following,  the  first  would  be  used  rather  than 
the  second. 

SUBTYPE  R1  IS  Positive  RANGE  1..100; 

VI  :  Rl; 

VI  :  Integer; 

The  range  of  values  that  an  Ada  object  may  take  is  used 
during  vectorization  to  determine  whether  dependencies  may 
occur.  This  in  ttim  determines  not  only  whether  vectorization 
is  possible  but  also  how  efficient  vectorized  code  may  be. 

•  Minimize  the  complexity  of  IF  and  CASE  statements 

In  general,  the  more  complex  the  statements,  the  slower,  the 
vectorized  code  will  be.  Complexity  consists  of  the  number  of 
ELS  IF  or  WHEN  statements,  the  complexity  of  Boolean 
expressions  for  IF  and  ELSIF  statements,  and  ranges  of 
values  and  nvunbers  of  alternatives  for  a  WHEN  statement. 

•  Larger  loops  provide  more  opportunities  for  optimization. 

The  quality  of  vectorized  code  may  be  enhanced  by  the 
inclusion  of  more  code  in  a  vectorizable  loop.  The  chaining 
abilities  of  the  CRAY  Y-MP  and  CRAY  X-MP  systems  may  be  put 
to  better  use.  An  example  of  implementing  the  matrix 
expressions  with  calls  to  matrix  arithmetic  routines  is  the 
following: 

A  :=  B  +  C  *  D 

The  previo\is  example  is  evaluated  as  the  following: 

T1  :=  Times (C,D) 

A  :=  Add(B,Tl) 

This  is  less  efficient  than  performing  all  of  the  operations  in  a 
single  loop.  Although  the  matrix  routine  approach  appears  at 
first  to  be  a  good  technique,  it  is  in  actuahty  much  less  efficient 
than  a  single  loop  approach. 


so 


Cray  RMavch,  Inc. 


SR-S082  2.0 


Cray  Ada  Environment.  Volume  2:  Programming  Guide 


Optimization  and  Vectorization 


User-selectable 

optimization 

features 

3.4 


Guidelines  for  using 
in-line  expansion 
3.4.1 


Using  pragma  INLINE 
3.4.2 


The  following  is  much  more  efBcient: 

FOR  I  IN  A' First. .A' Last  LOOP 
A{I)  :=  Ed)  +  C(I)  *  Dd)  ; 
END  LOOP; 


The  following  subsections  describe  user-selectable  optimization 
features. 


You  can  control  inlining  in  the  following  four  ways; 

•  Insert  pragma  INLINE  designations  in  the  source  code, 
indicating  the  subprograms  to  be  inlined;  the  optimizer  inlines 
them. 

•  Specify  the  subprograms  to  be  inlined;  they  are  inlined  as 
through  pragma  INLINE  had  been  inserted  in  the  soiirce. 

®  Allow  the  automatic  inlining  of  aU  subprograms  called  from 
only  one  place  in  a  program,  including  those  you  do  not  specify. 

•  Exempt  selected  subprograms  from  automatic  inlining;  you 
still  get  the  benefits  of  the  automatic  feat\ire. 

Inlining  is  controlled  by  the  -0  option  on  the  ada  and  aopt 

command  lines.  The  following  subsections  explain  the  use, 

requirements,  and  effects  of  inlining. 


Cray  Ada  supports  the  inlining  of  calls  to  subprograms  that 
users  identify  through  INLINE  pragmas.  As  specified  by  the 
LKM,  the  pragma  must  be  placed  in  the  same  declarative  region 
as  the  declaration  of  the  subprogram  to  be  inlined  and  must 
follow  the  subprogram  declaration.  In  the  following  example, 
the  directive  to  in-line  function  Drag_Coef  f  in  the  package 
declaration  for  package  Drag_Calc  is  placed  after  the 
declaration  of  the  function: 
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package  Drag_Calc  is 

type  Plane_Type  is  (B707,  B727,  B737,  B747,  B757,  B767) ; 

function  Drag_Coeff  (Plane:  Plane_Type)  return  Float; 
pragma  INLINE  (Drag_Coeff ) ; 

end  Drag_Calc; 


If  you  do  not  specify  -O  on  (at  a  minimum)  as  an  option  on  the 
ada  or  aopt  command  line  (that  is,  -O  off  cannot  be  specified), 
pragma  INLINE  is  ignored. 


Using  nutomatic  Cray  Ada  also  supports  automatic  inlining,  in  which 

inlining  subprograms  that  are  called  from  only  one  place  and  that  are  not 

3.4.3  visible  outside  the  compilation  unit  or  the  collection  of  units 

being  optimized  are  inlined  automatically.  Such  subprograms 
are  commonly  encountered  in  two  instances; 

•  A  programmer  has  separated  out  a  functional  block  of  code  as 
a  subprogram  to  keep  the  size  of  the  caller’s  source  down  to  a 
manageable  level.  The  optimizer  helps  to  eliminate  the 
penalty  for  this  style  of  structured  design.  Elimination  of  the 
call  overhead  by  ixilining  is  especially  beneficial  when  the 
subprogram  will  be  called  inside  a  loop  that  is  repeated  many 
times. 

•  The  compiler  has  inserted  one-shot  calls  to  compiler-generated 
local  subprograms  to  simplify  the  implementation  of  varioiis 
language  features,  such  as  tasking.  When  inlining  is  enabled, 
the  compiler  inlines  these  subprograms  automatically. 


Using  transitive 
inlining 

3.4.4 


The  inlining  of  subprograms  is  transitive.  For  example,  if 
inlined  subprogram  A  is  called  by  inlined  subprogram  B,  and  B  is 
called  by  subprogram  C,  optimization  will  result  in  A  being 
inlined  in  B,  and  the  result  being  inlined  in  C. 
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Using  transitive 

inlining 

3.4.4 


Perfortnance  trade-offs 

3.4.5 


Requirements  for 

inlining 

3.4.6 


The  inlining  of  subprograms  is  transitive.  For  example,  if 
inlined  subprogram  A  is  called  by  inlined  subprogram  B,  and  B  is 
called  by  subprogram  C,  optimization  will  result  in  A  being 
inlined  in  B,  and  the  result  being  inlined  in  C. 

The  one  exception  to  this  rule  is  that  a  subprogram  is  not  inlined 
automatically  into  a  subprogram  that  is  itself  marked  for 
inlining,  vising  pragma  INLINE.  Automatic  inlining  is  inhibited 
to  ensure  that  you  have  full  control  over  the  inlining  process. 
This  feature  prevents  any  significant  unexpected  and  vmdesired 
size  overhead  introduced  by  the  automatic  inlining  of  a  called 
subprogram.  Any  subprogram  that  is  to  be  inlined  into  another 
inline  subprogram  must  be  marked  explicitly  with  an  INLINE 
pragma. 


In-line  expansion  is  one  t3rpe  of  optimization  for  which 
space/time  trade-ofiT  is  an  issue.  A  subprogram  that  you  have 
marked  for  in-line  expansion  and  that  is  called  fi'om  more  than 
one  place  can  potentially  cause  object  code  to  be  larger  after 
optimization  than  before  if  the  inlined  subprogram  has 
significant  size.  Usually,  subprograms  identified  for  inlining 
should  be  small  enough  that  expansion  takes  little,  if  any  more 
space  than  the  call  it  replaces.  In  any  case,  in-line  subprogram 
designations  are  honored  regardless  of  code  space  costs; 
therefore,  it  is  up  to  you  to  evaluate  potential  trade-ofis. 


For  a  subprogram  to  be  inlined  in  a  unit  that  calls  it,  the 

following  conditions  must  be  met: 

1.  The  subprogram  must  be  designated  in  an  INLINE  pragma  or 
be  subject  to  automatic  inlining  through  the  -0  option  of  the 
ada  or  aopt  command. 

2.  The  unit  containing  the  subprogram  to  be  inlined  must  be 
optimized  through,  as  a  minim  vim,  the  -O  on  option  (that 
is,  -0  off  cannot  be  specified). 

3.  A  unit  that  calls  the  inlined  subprogram  must  be  optimized. 

Conditions  2  and  3  indicate  that  both  the  called  subprogram 
and  the  code  that  calls  it  must  be  optimized  if  inlining  is  to 
occur. 
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Unit  dependencies 
created  by  inlining 
3.4.7 


Callable  bodies  for  visible 
in-line  subprograms 
3.4.7.1 


In-line  body  dependencies 
3.4.7.2 


4.  A  tinit  that  contains  the  body  of  an  inlined  subprogram  m\ist 
be  compiled  before  the  compilation  of  any  units  that  call  the 
inlined  subprogram. 

5.  Full  intermediate  code  forms  (saved  with  the  -k.  option  of  the 
ada  command)  of  the  unit  containing  the  subprogram  to  be 
inlined  must  be  present  in  the  Ada  library. 

Tnlining  fundamentally  consists  of  inserting  the  code  for  the 
inlined  subprogram  into  the  railing  subprogram.  Thus,  the 
code  for  the  inlined  subprogram  must  already  exist  if  this 
insertion  is  to  take  place. 

If  any  of  these  conditions  are  not  met,  inlining  will  not  occur  and 
a  normal  call  to  a  noninlined  copy  of  the  subprogram  will  occm. 


Because  of  the  nature  of  the  Ada  language,  inlining  may  create 
new  unit  dependencies.  Programmers  must  anticipate  the 
consequences  of  inlining  certain  subprograms  within  a  given 
configuration. 


Because  of  the  possibility  that  a  caller  has  been  compiled  before 
the  compilation  and  optimization  of  an  in-line  body,  the  compiler 
always  generates  a  callable  body  for  a  pragma  INLINE 
subprogram  that  is  externally  visible,  (jeneration  of  a  callable 
body  can  be  avoided  by  declaring  the  subprogram  where  it  is  not 
externally  visible  (for  example,  in  the  body  of  a  package)  or  by 
designating  the  unit  to  be  a  hidden  unit  of  a  collection  that 
includes  all  of  the  subprogram’s  callers. 


When  a  subprogram  call  is  expanded  inline,  a  dependency  is 
created  between  the  unit  body  in  which  the  expansion  occurs 
and  the  unit  containing  the  inlined  body.  Recompilation  of  the 
in-line  body  causes  the  unit  in  which  the  expansion  occxirred  to 
become  obsolete.  Unless  the  unit  containing  the  in-line 
expansion  is  subsequently  recompiled,  an  inconsistency  will  be 
detected  when  an  attempt  is  made  to  rebind  the  main  program. 

In  the  following  example,  assume  that  main  program  procedure 
Glide_Ratio  calls  inlined  function  Drag_Coef  f  in  package 
Drag_Calc  and  that  both  procedure  Glide_Ratio  and  package 
Drag_Calc  have  been  optimized. 
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package  Drag_Calc  is 

type  Plane_Type  is  (B707,  B727,  B737,  B747,  B757,  B767) ; 
function  Drag_Coeff  (Plane;  Plane_'IVpe)  return  float; 
pragma  INLINE  (Drag_Coef f ) ; 
end  Drag_Calc; 


If  the  body  of  package  Drag_Calc  is  recompiled,  unit 
Glide_Ratio  will  be  rendered  obsolete  because  the  actual  body 
object  code  of  function  Drag_Coef  f  has  been  placed  into  the 
object  code  of  Glide_Ratio. 

When  the  body  of  Drag_Calc  is  recompiled,  Glide_Ratio  must 
be  recompiled  so  that  the  new  (potentially  modified)  code  of 
Drag_Coef  f  is  included. 

Without  optimization,  a  recompilation  of  the  body  of  package 
Drag_Calc  would  not  require  a  recompilation  of  Glide_Ratio. 

lb  anticipate  the  consequences  of  inlining,  you  may  use  library 
command  are  1  to  obtain  a  dependency  report  involving  the 
relevant  units.  You  may  also  use  arec  to  check  library 
consistency  at  any  time  and  to  produce  a  list  of  units  that 
require  recompilation.  (See  Cray  Ada  Environment,  Volume  1: 
Reference  Manual,  publication  SR-3014,  for  more  information  on 
these  library  utilities.) 


Pragma  Pragma  VECTORIZE_LOOP  is  an  implementation-dependent 

VECTORiZE_LOOP  pragma  that  gives  the  Cray  Research  system  vectorizer  greater 

3.4.8  latitude  in  vectorizing  loops.  It  allows  the  vectorizer  to  vectorize 

some  loops  for  which  there  is  insufficient  information  to 
determine  vectorizability. 
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The  basic  syntax  of  this  pragma  is  as  follows: 


Pragma  Vectorize_loop  (  ON  I  OFF  )  ; 


The  pragma  must  immediately  precede  a  loop  statement  in  the 
Ada  source  code  (apart  from  any  intervening  comments),  and  it 
applies  to  the  entire  loop  statement  (including  nested  loops). 

All  Ada  looping  structures  (FOR,  WHILE,  and  LOOP  loops)  are 
affected.  Tlie  effect  of  this  pragma  does  not  extend  to  statements 
following  the  end  of  the  loop. 

If  the  pragma  is  specified  with  the  au’gument  ON,  permission  to 
vectorize  the  loop  is  granted.  If  the  argument  specified  is  OFF, 
the  vectorizer  is  required  not  to  perform  any  analysis  or 
vectorization  on  the  loop  (including  any  nested  loops).  The 
vectorizer  performs  a  dependency  analysis  (even  when  ON  is 
specified)  and  issues  appropriate  messages,  depending  on  the 
outcome  of  its  analysis,  to  advise  you  whether  the  vectorization 
is  unsafe,  that  the  pragma  is  not  necessary  to  achieve 
vectorization,  or  that  the  loop  has  been  vectorized  (although  it 
may  not  have  been  proven  safe  to  vectorize). 

If  you  place  a  pragma  Vectorize_loop  before  a  loop  construct 
but  the  compiler  determines  that  a  dependency  exists,  the  loop 
will  not  vectorize,  and  a  message  will  be  generated. 

The  following  is  an  example  using  pragma  Vectorize_loop: 


procedure  Vector  (M,  N  :  In  Integer)  is 

A  :  array  (INTEGER  range  1  ..  200)  of  integer; 

begin 

Pragma  Vectorize_Loop (ON) ; 

For  I  in  1  . .  100  loop 

A(l  +  M)  :=A(I+N);  — T' US  loop  vectorizes  because  of  the 

End  Loop;  pragma  Vectorize_Loop 

End  Vector; 
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Optimization  Utilities  and  Strategies  [4] 


apro 

4.1 


Optimization 

information 

4.2 


prof  and  prof  view 

4.3 


Using  the  optimization  facilities  of  Cray  Ada,  you  can 
significantly  increase  the  execution  performance  of  yoxir  Ada 
codes.  You  can  often  gain  additional  performance  by  locating 
time-consuming  code  and  modifying  it.  This  subsection 
describes  various  tools  available  on  Cray  Reseau'ch  systems  that 
let  you  fine  tune  programs  for  maximum  performance. 


The  Ada  profiler  apro  is  a  tool  that  helps  you  gather  information 
on  subprogram  calls  and  timings.  The  functionality  of  this  tool 
and  examples  of  its’  usage  are  described  in  Cray  Ada 
Environment,  Volume  1:  Reference  Manual,  publication  SR-3014. 


The  Cray  Ada  compiler  provides  information  on  specific  loops 
that  have  and  have  not  vectorized  and  inlined.  The  Ada 
compiler  also  provides  details  on  how  to  modify  code  to  support 
vectorization.  Additional  information  related  to  this  feature  can 
be  found  in  Cray  Ada  Environment,  Volume  1:  Reference 
Manual,  publication  SR-3014. 


The  UNICOS  prof  utility  indicates  the  amount  of  time  spent  in 
various  segments  of  code  within  routines.  Usually,  it  is  used  in 
coiyimction  with  profview,  an  interactive  tool  for  displajdng 
the  information  collected  by  prof.  These  tools  can  help  you  in 
determining  areas  on  which  to  focus  optimization  efforts, 
especially  when  you  are  using  mixed  languages,  because  apro, 
the  Ada  profiling  tool,  provides  no  support  for  foreign  languages 
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When  you  use  prof  on  Ada  routines,  no  symbol  nsimes  are 
provided  and  routine  names  follow  internal  naming  conventions. 
For  example,  you  may  see  routines  with  names  such  as 
test_$2.  You  can  find  detailed  discussion  of  this  tool  and  its 
options  in  the  UNICOS  Performance  Utilities  Reference  Manual, 
publication  SR-2040.  The  following  is  a  very  simple  example 
that  illustrates  the  use  of  prof  and  prof  view  with  Ada. 

The  following  is  source  code: 


Procedure 

test  is 

A  :  array 

( INTEGER  range  1  . . 

1000000) 

of 

integer; 

B  :  array 

(INTEGER  range  1  . . 

1000000) 

of 

integer; 

begin 

For  I  in 

1  ..  1000000  loop 

Ad)  ; 

=  B(I)  +  3; 

End  Loop 

t 

End  test; 

lb  prepare  the  test  case  for  profiling,  execute  the  following; 


ada  -d  test.ada 

aid  -d  -P  •-!  prof*  test 

. /test 

prof  -X  -m  prof. data  test  >& !  prof. raw 
prof view  prof. raw 
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procrpt 

4.4 


Sample  output  of  an  alphabetic  J  list  of  modules  using  the  a 
option  of  prof  view  is  shown  in  the  following. 


Module  Name 

Hit  Count 

PCT 

ACCUM  % 

$ expand 

1 

0.08 

0.08 

creat 

1 

0.08 

0.17 

sbreak 

2 

0,17 

0.34 

test_$2 

1187 

99.66 

100.00  ******** 

The  information  provided  by  prof  and  apro  does  not  always 
map  one-to-one.  For  instance,  prof  provides  information  on  Ada 
routines  by  using  internal  naming  conventions  and  UNICOS 
library  calls  made  by  the  Ada  run  time,  apro,  on  the  other 
hand,  reports  at  the  Ada  unit  level  but  does  not  provide 
information  on  UNICOS  routines  used  in  the  Ada  nm  time,  apro 
does,  however,  provide  an  analysis  of  program  calling  structure 
not  available  with  prof;  therefore,  both  tools  can  be  useful  in 
the  tuning  process. 


The  procstat  and  procrpt  routines  monitor  the  execution  of 
processes  and  generate  statistics  about  I/O  process  and  memory 
activities.  See  the  UNICOS  Performance  Utilities  Reference 
Manual,  pubUcation  SR-2040,  for  more  information. 

lb  use  procstat,  you  could  iise  the  following  command: 

procstat  -R  raw. data  asyncl7 
procrpt  raw. data  >&!  proc. report 
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The  output  results  fotmd  in  proc .  report  would  look  something 
like  the  following: 

******** . procSTAT  totals  . . . 

Total  Number  of  Processes  =  3  Total  Number  of  Active  Files  =  8 

-  PROCESSES  - 

PID  Start  Date/Time  Max  Mem  #Fls  Args 


87154  03/19/91  15:35:35  4372071 

87156  03/19/91  15:35:37  72143 

87157  03/19/91  15:35:37  120371 


4  asyncl7 
0  sh 

4  assign 


ACTIVE  FILES 


PID 

fd 

Mod 

File  Size 

Function 

#Char  MOV 

Time 

Filename 

87154 

1 

WO 

0 

Write 

104 

.5669 

stdout 

87154 

6 

RO 

34 

Read 

34 

.0001 

read_f ile 

87154 

6 

RO 

34 

Read 

34 

.0000 

read_file 

87154 

6 

R/W 

2097152 

Async  Read 

2097152 

.0059 

fort . 2 

Async  Write 

2097152 

.0134 

Seek 

n/a 

.0000 

87157 

6 

R/W 

0 

Read 

0 

.0000 

read_f ile 

87157 

6 

RO 

34 

Read 

34 

.0000 

/tmp/ jtmp.000035a/AAAa87l5 

87157 

8  R/W 

34 

Write 

34 

.0000 

/tmp/j  tmp . 00003  5a/AAAa87 15 

87157 

8 

WO 

34 

Write 

34 

.0000 

read_f ile 

See  the  UNICOS  Performance  Utilities  Reference  Manual, 
publication  SR-2040,  for  additional  information  on  procstat 
and  procrpt. 
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The  hpm  tool  provides  information  about  hardware  performance 
during  execution  of  a  program.  This  tool  is  available  only  on 
CRAY  Y-MP  and  CRAY  X-MP  systems.  No  special  requirements 
are  necessary  to  use  this  routine.  For  example,  using  the 
following  command  produces  output  from  hprru 

hpm  mflops 

The  following  example  represents  output  from  using  the  hpm 
mflops  command. 


Group  1:  CPU  seconds  :  169.08103  CP  executing:  28189568830 


Hold  issue  condition  %  of  all  CPs 

Waiting  on  semaphores  :  0.00 

Waiting  on  shared  registers  :  0.00 

Waiting  on  A-registers/funct .units  :  19.69 
Waiting  on  S-registers/funct .units  :  44.88 
Waiting  on  V-registers  :  0.05 

Waiting  on  vector  functional  units  :  0.00 

Waiting  on  scalar  memory  references:  0.02 
Waiting  on  block  memory  references  :  0.26 


actual  #  of  CPs 
44858 
0 

5551338711 

12650916996 

12686456 

432 

4612724 

72404149 


See  UNICOS  Performance  Utilities  Reference  Manual,  pubUcation 
SR-2040,  for  additional  information  on  the  usage  of  hpm. 
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Overview  of  the 
Ada  Execution 
Environment 

5.1 


Ada  Program  Runtime  Model  [5] 


The  Ada  runtime  model  encompasses  all  aspects  of  the  structure 
necessary  for  Ada  to  communicate  with  the  UNICOS  operating 
system  and  user  environment.  This  model  includes  information 
on  the  following  areas: 

•  Ada  runtime  support  packages 

•  System  and  library  calls 

•  Internal  representation  of  data 

•  Storage  and  task  management 

•  Exception  handling 

•  Cray  Ada  calling  sequence 


The  Cray  Ada  Environment’s  full  Ada  runtime  environment  is 
Ada  Execution  Environment  (AEE).  It  includes 
support  for  b\iilt-in  language  facilities  (such  as  tasking  and 
memory  allocation)  and  support  for  the  predefined  packages 
(such  as  Text_IO  and  Calendar)  that  must  be  exphcitly 
included  by  use  of  with  to  become  accessible  to  a  user  program. 

One  key  set  of  target-independent  runtime  components  is  known 
collectively  as  the  Runtime  Support  Packages  (RSP). 
Conceptually,  each  Ada  program  implicitly  imports  the  RSP 
packages  it  needs,  although  the  RSP  specifications  are  not  made 
available  to  the  user.  When  runtime  support  is  requ'red,  the 
compiler  inserts  calls  to  the  RSP  into  the  core  of  a  user  program. 
The  RSP  supports  some  of  the  more  complicated  aspects  of  Ada 
semantics,  such  as  tasking  and  dynamic  memoiy  management. 
The  RSP  is  implemented  entirely  in  Ada. 

The  Target-dependent  RSP  (TDRSP)  provides  the  foundation  for 
the  RSP.  The  TDRSP  includes  several  packages  with 
target-independent  specifications  2md  teu'get-dependent  bodies 
that  implement  the  fundamental  low-level  primitives  on  which 
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Contents  of  the 

runtime 

sublibrary 

5.2 


the  RSP  depends.  For  instance,  one  of  the  packages 
(TD_Machine_State_Manager)  provides  the  machine-level 
context  switch  operation  that  occurs  as  part  of  an  overall  Ada 
task  switch. 


The  runtime  sublibrary  contains  the  Ada  packages  required  to 
support  program  compilation,  linking,  and  execution.  It  is 
sometimes  referred  to  (loosely)  as  the  runtime  library  or  the 
standard  library.  As  previously  mentioned,  the  standard 
predefined  Ada  sublibrary  must  be  specified  as  part  of  the 
library  for  each  compilation  and  Unking.  The  I/O  operations 
provided  by  the  runtime  Ubrary  are  performed  synchronously, 
with  program  execution  suspended  until  the  I/O  operation  is 
complete. 

The  foUowing  are  the  units  in  the  runtime  Ubrary: 

•  Ada  predefined  units.  The  standard  Ubrary  consists  of  the 
foUowing  Ada  predefined  units,  which  you  must  not  redefine: 

Calendar 

Direct_IO 

IO_Exceptions 

Sequent ial_IO 

Standard 

System 

Text_IO 

Unchecked_Convers ion 
Unchecked_Deal location 

If  you  redefine  these  units,  you  may  get  unpredictable 
program  results. 

•  Preinstantiated  I/O  packages.  Besides  the  Ada  predefined 
packages,  the  standard  Ubrary  provides  the  foUowing 
preinstantiated  versions  of  packages  in  standard  package 
Text  10: 


Float_Text_IO 
Integer _Text_IO 

The  specifications  of  these  packages,  and  information  on  their 
use,  are  presented  in  “Use  preinstantiated  generic  imits,”  page 
6. 
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•  Low-level  support  packages.  Besides  Ada  predefined  and 
preinstantiated  I/O  packages,  the  runtime  Library  consists  of 
the  support  packages  listed  in  Table  5. 


Caution 

These  packages  are  for  implementation  purposes  only  and  are 
not  supported  for  direct  user  access.  If  you  attempt  to  call  them 
fi’om  a  user  program,  the  program  may  abort  or  take  an 
otherwise  undefined  action. 


Table  5.  Runtime  library  support  packages 


Support  type 

Package  names 

Support  type 

Package  nsunes 

Target-independent 
tasking  support 

AR_Aborc 

AR_Activacion 

AR_ACtributes 

AR_Debugger_Support 

AR_Delay 

AR_Exception 

AR_Kernel 

AR_Rendezvous 

AR_Stace 

AR_TC3_Opera  c i ons 
AR_Terminacion 

Target-independent 
runtime  support 

RSP_Enumeracion 

RSP_Fixed 

RSP_Hl_Open_Heap 
RSP_H3_Collect:ior. 
RSP_Discrete_AC tributes 
RSP_Real_At tributes 
RSP_Coinposite 

RSP_Vector 

Telesof  t_Integer_'Ty’pes 

I/O  support 

File_IO 

Texc_IO_Def inition 

UIA 

URA 

Target-dependent 
tasking  support 

TD_Delay_Manager 
TD_Exception_Manager 
TD_Interrupt_Manager 
TD_Machine_Sta te_Manager 
TD_Memory_Manager 

TD_Ta  s  k_Te  rm  i  n  a  1 1  c  r. 
TD_Tas)cing_Paranieters 

Target-dependent 
runtime  support 

'^D_Address_Manager 

TD_Memory_Manager 

CGS 

CGS_Debugger_Supporc 
CGS_Exc_Di splay 

CGS_Excepc i on_Manager 

ENV 

Vrtmr_Lib 
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Reserved  global 
names 

5.3 


UNICOS  system  calls 
and  C  library  routines 
5.3.1 


•  Cray_Lib.  The  Cray_Lib  package  contains  several  routines 
that  may  not  be  called  in  addition  to  the  user  callable  routines. 
Routines  that  are  not  for  use  by  other  than  the  Cray_Lib 
package  itself  begin  with  Q8.  See  “Library  Interfaces,”  page 
119,  for  a  description  of  Cray_Lib. 

•  System_Inf o.  The  System_Inf  o  package  contains  the 
compiler  version  number  in  both  number  and  string  format. 
See  “Library  Interfaces,”  page  119,  for  a  description  of 
System_Info. 

•  UNlCOS_Signal_Support.  The  UNICOS_Signal_Support 
package  contains  user  callable  routines.  See  “Library 
Interfaces,”  page  119,  for  a  description  of 
UNICOS_Signal_Support. 


The  Cray  Ada  compiler  runtime  contains  a  collection  of  modules 
that  forms  a  direct  interface  with  UNICOS.  These  modules  are 
written  in  a  combination  of  C  and  CAL.  Routines  written  in 
languages  other  than  Ada  (CAL,  C,  Fortran,  Pascal,  and  so  on) 
should  avoid  redefining  the  global  names  listed  in  “UNICOS 
system  calls  and  C  library  routines,”  and  “UNICOS  global  data 
items,”  page  77,  because  they  are  used  by  the  Cray  Ada  compiler 
nmtime.  Redefinition  of  these  names  causes  link-time  errors 
and  incorrect  program  execution.  The  Ada  compiler  translates 
package  and  procedure  names  into  a  form  that  does  not  conflict 
with  most  user-specified  names. 


The  following  routines  are  called  directly  by  the  Cray  Ada 
nmtime  and  package  STANDARD.  You  can  find  complete 
descriptions  of  these  routines  for  UNICOS  6.0  in  Volume  4: 
UNICOS  System  Calls  Reference  Manual,  publication  SR-2C  2, 
Volume  2:  UNICOS  C  Library  Reference  Manual,  publication 
SR-2080. 


access(2) 

ioctl(2) 

sleep{3C) 

close(2) 

localtime(3C) 

sprintfOC) 

exit(2) 

lseek{2) 

stat(2) 

fcntl(2) 

malloc(3C) 

strcpy(3C) 

f  ree(3C) 

meincmp{3C) 

strlen(3C) 
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items 

5.3.2 


getcwd(3C) 

getenv(3C) 

getpid(2) 

getpwnain(3C) 

gets(3C) 

getwd(3C) 


memcpyOC) 
memset(3C) 
open(2) 
read(2) 
rename  (30 
signal(2) 

$STKCR%  and  $STKOFEN  (as  in  /libc/gen/stackal .  s 
$STKDE%  and  $STKUFEX  (as  in  /libc/gen/stackde.  s 
$STKOFENand  $STKRETN(as  in  libc/gen/csus)§§ 


strncpyOC) 

target(2) 

time(2) 

unlink(2) 

write(2) 


)§ 

)§ 


The  Cray  Ada  Environment  uses  the  following  global  data  items 
(as  defined  in  the  ctime(3C)  entry  in  the  UNICOS  C  Library 
Reference  Manual,  pubhcation  SR-2080).  In  software,  they  are 
defined  in  the  UNICOS  libc .  a  library  and  are  referenced  by  the 
UNICOS  runtime: 

•  daylight 

•  timezone 

The  Cray  Ada  Environment  uses  the  following  global  data  items 
(as  defined  in  the  exec(2)  and  intro(2)  entries  in  Volume  4: 
UNICOS  System  Calls  Reference  Manual,  publication  SR-2012). 
In  software,  these  items  are  defined  in  the  UNICOS  1  ibc .  a 
library  and  are  referenced  by  the  UNICOS  r\in  time: 

•  environ 

•  ermo 

The  Cray  Ada  Environment  uses  the  following  global  data  items 
on  CRAY-2  systems  with  UNICOS  6.0  or  previous  levels: 

•  @argc 

•  @argv 


§  Applies  to  CRAY  Y-MP  and  CRAY  X-MP  systems 
§§  Applies  to  CRAY-2  systems 
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Internal  Ada 

naming 

conventions 

5.4 


Some  UNICOS  systems  only  accept  file  names  of  14  or  fewer 
characters  in  length.  Because  the  Ada  language  allows 
compilation  unit  names  of  much  greater  length,  an  internal 
file-naming  convention  has  been  estabhshed  to  identify  Ada 
compilation  unit  names  uniquely  within  the  UNICOS 
environment.  Users  of  Ada  should  never  be  required  to 
reference  an  Ada  unit  by  these  internal  names,  although  the 
names  are  referred  to  when  using  several  of  the  Ada  tools.  The 
following  conventions  show  how  these  names  are  generated. 

The  Ada  compiler’s  middle  pass  (MP)  generates  subprograms 
with  names  of  the  following  format; 

Mp_L  source  _line_n  umber  $  descripti  vejiame 

For  example: 

Mp_L136$Coinpatibility_Check_subp 

If  the  compilation  unit  name  is  longer  than  12  characters,  the 
compiler  and  linker  generate  unique  names  for  object  files  by 
using  up  to  5  characters  of  the  unit  name,  appending  a  processed 
version  of  a  7-character  time  stamp,  and  then  .  o.  Because  the 
time  stamp  is  processed,  it  does  not  appear  to  be  a  time  stamp, 
but  rather  a  random  character  string. 

The  following  gives  an  example: 

Ada  unit  name  Output  file  name 

A_very_long_name  A_verBi sw9pc . o 

A_very_much_longer_name  A_verBiswO_3 . o 

Specifications  start  with  a  capital  letter.  Bodies  use  the  same 
time  stamp  as  the  specification.  If  a  specification  is  recompiled, 
the  time  stamp  will  change. 


Data 

representation 

5.5 


This  subsection  describes  the  representation  of  various  types  of 
data  in  the  Cray  Ada  Environment.  It  provides  summary 
information  about  the  internal  representation  of  various  data 
types,  aind  it  gives  examples  for  packed  and  unpacked  types  and 
unconstrained  arrays. 
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The  following  list  summEuizes  the  default  representations  of 

data  in  the  Cray  Ada  Environment. 

•  Nvimbers  are  represented  as  follows; 

Type  Representation 

integer  Has  an  eflfective  range  of-2e45  to  +2e45-l, 

although  integer  objects  occupy  full  64-bit 
words,  unless  they  have  a  range  requiring 
fewer  bits  and  are  contained  in  a  packed  array 
or  record. 

fixed-point  Occupies  64  bits  with  an  effective  mantissa 
size  of  46  bits  and  is  word  aligned. 

Fixed-point  objects  cannot  be  packed.  If  the 
uppp’*  bound  of  a  fixed-point  type  is  a  power  of 
1,  vnot  a  moael  number  for  the  t3T)e),  it  is  not  a 
representable  value  of  the  type. 

float  Provides  for  an  effective  accxiracy  of  13 

decimal  digits.  All  floating-point  objects  are 
word  aligned,  and  they  cannot  be  packed.  For 
more  information  on  the  specifics  of  the  choice 
of  Max_Digits,  see  LRM  3.5.7  Floating-point 
Types  in  the  LRM  annotations  of  this  manual. 

•  The  following  rules  govern  the  packing  of  numeric  tjrpes: 

-  Floating-point  objects,  whether  alone,  in  arra)^  or  in 
records,  cannot  be  packed. 

-  Fixed-point  values,  whether  alone,  in  arrays,  or  in  records, 
cannot  be  packed.  (Type  duration  is  represented  by  46-bit, 
fixed-point  numbers;  see,  “LRM  9.6:  Delay  statements, 
duration,  and  time,”  page  189.) 

-  Integers  in  arraj^s  or  records  can  be  packed. 

“LRM  13.1:  Representation  claxises,”  page  192,  summarizes  the 
packing  of  these  data  structures  and  provides  information 
about  the  memory  layout  of  packed  types. 

•  Objects  of  the  predefined  type  character  occupy  64  bits  and 
are  word  aligned,  unless  packed  within  an  array  or  record. 

•  Objects  of  type  STRING  are  packed  1  character  per  b3rte  (8 
characters  per  word)  and  are  allocated  in  the  same  way  as 
packed  arrays  of  a  character. 
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•  Objects  of  type  boolean  occupy  64  bits  and  are  word  aligned, 
unless  packed  within  an  array  or  record.  A  value  of  false  is 
represented  by  0;  a  value  of  true  is  represented  by  1. 

•  An  enumeration  t3npe  is  represented  as  an  integer  range, 
with  the  range  depending  on  the  number  of  elements.  The 
space  allocated  for  an  object  is  64  bits,  and  the  object  is  word 
aligned,  unless  packed  within  an  array  or  record.  The  first 
element  of  an  enximerated  type  is  represented  by  the  value  0, 
unless  superseded  by  an  enumeration  representation  clause. 

•  An  access  type  is  implemented  as  a  64-bit  absolute  memory 
address  on  CRAYY-MP;  CRAy-2  S3rstems  and  cannot  be  packed. 
Objects  of  access  type  are  word  aligned.  Access  types,  having 
a  designated  subt37pe  of  unconstrained  array,  point  to  a 
descriptor  record  that  includes  the  bounds  of  the  array, 
followed  by  the  array  itself. 

•  Components  in  a  record  follow  the  preceding  data 
representations.  These  components  are  allocated  sequentially 
as  declared  in  the  source  code  (with  gaps  between  components 
as  required  to  obey  alignment  rules).  Components  of  W  bits  or 
fewer  never  cross  word  boundaries. 

If  pragma  PRESERVE_LAY0UT  is  used,  the  first  field  in  the 
record  is  assigned  the  lowest  memory  address;  otherwise,  in 
the  absence  of  a  representation  clause,  it  may  be  arbitrarily 
reordered.  Variant  record  fields  are  always  aligned  on  word 
boundaries.  Variant  records  can  be  packed,  subject  to  the 
packing  rules  governing  their  elements. 

•  In  packed  records,  arrays  are  always  aligned  on  a  multiple  of 
the  size  of  their  individual  components  (that  is,  a  string  is 
aligned  on  an  8-bit  boimdary,  an  array  of  Booleeins  is  aligned 
on  a  bit  boimdary,  and  so  on).  Components  of  packed  arra3rs 
are  bit  aligned,  but  never  cross  word  boundaries.  If  not  in  a 
packed  record,  arrays  are  always  word  aligned. 
Multidimensional  arrays  are  represented  in  row-mqjor  order; 
that  is,  the  several  collections  of  objects  corresponding  to  the 
innermost  (or  rightmost)  dimension  follow  each  other 
sequentially  in  memory.  This  order  is  the  same  as  that  used 
by  Cray  C  and  Cray  Pascal,  and  is  the  reverse  of  the  order 
used  by  the  various  Cray  Fortran  compilers. 
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Pragma 

PRESERVE_LAYOUT 

5.5.1 


Internal  representation 
of  unpacked  types 
5.5.2 


Unpacked  unsigned 
integer  types 
5.5.2.1 


The  Cray  Ada  compiler  reorders  record  components  to  minimize 
gaps  within  records.  Pragma  PRES  ERVE_LAY OUT  forces  the 
compiler  to  maintain  the  Ada  source  order  of  a  given  record  t3T)e, 
thereby,  preventing  the  compiler  from  performing  this  record 
layout  optimization.  The  syntax  of  this  pragma  is  as  follows: 


pragma  preserve_layout  (ON  =>  record Jypejname) 


Pragma  PRESERVE_LAy0UT  must  appear  before  any  forcing 
occurrences  of  the  record  type  and  must  be  in  the  same 
declarative  part,  package  specification,  or  task  specification. 
This  pragma  can  be  applied  to  a  record  type  that  has  been 
packed.  If  PRESERVE_LAYOUT  is  applied  to  a  record  type  that 
has  a  record  representation  clause,  the  pragma  applies  only  to 
the  components  that  do  not  have  component  claiises.  These 
components  appear  in  Ada  source  code  order  after  the 
components  with  component  clauses. 


The  following  subsections  show  the  memory  layouts  in  Cray 
Research  systems  for  sample  objects  of  Ada’s  unpacked  data 
types. 


The  following  code  segment  declares  and  sets  simple  unsigned 
integers  and  an  array  of  unsigned  integers.  The  resulting 
objects,  when  unpacked,  are  represented  in  memory  as  shown  in 
the  memory  maps  following  the  code  segment. 


subtype  small_int  is  integer  range  1  ..  10; 
type  Short  is  array  (1  ..  3)  of  small_int; 

I  :  integer  .-=  42; 

K  :  Short  :=  {2,4,6); 


0 


57  63 


0 

0 

101010 

I 

0  60  63 


0 

0 

010 

0 

0 

100 
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Unpacked  signed  integer 

types 

5.5.2.2 


Unpacked  floating  point 

types 

5.5.2.3 


Unpacked  fixed-point  types 
5.5.2.4 


0 


0 


110 


The  following  code  segment  declares  and  sets  simple  signed 
integers  and  an  array  of  signed  integers.  The  resulting  objects, 
when  unpacked,  are  represented  in  memory  as  shown  in  the 
memory  maps  following  the  code  segment. 

subtype  small_int_l  is  integer  range  -5  ..  5; 
type  Short_l  is  array  (1  ..  3)  of  small_int_l; 

J  ;  integer  ;=  -37; 

L  ;  Short_l  :=  (-3,-2, 4); 


0 

55 

63 

E 

1 

11011011 

0 

59 

63 

1 

1 

1101 

1 

1 

110 

0 

0 

100 

Sign  MSB  LSB 


Floating-point  values  cannot  be  packed.  They  are  represented  in 
memory  as  shown  in  the  following  memory  map: 


0  1 


15  16 


63 


Exponent 


Coefficient 


Sign 


The  exponent  value  has  a  base  value  of 40,000  octal  added  to  it; 
therefore,  to  get  the  true  exponent,  you  must  subtract  this  value 
from  the  represented  exponent. 


Cray  Ada  represents  fixed-point  numbers  as  the  integer  number 
of  DELTAS  that  comprise  the  number.  The  DELTA  value  is 
computed  to  be  the  smallest  power  of  2  less  than  or  equal  to  the 
specified  delta.  In  the  first  example,  the  actual  DELTA  of  T1 
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Unpacked  character  types 
5.5.2.5 


used  by  the  compiler  is  T1 '  SMALL  or  1/16  (0.0625).  T1 '  SMALL  is 
the  unit  value  used  by  the  compiler  when  dealing  with 
fixed-point  numbers,  and  all  numbers  of  the  t3rpe  can  be 
represented  as  some  multiple  of  this  value. 


In  the  following  section  of  code,  several  fixed-point  types  are 
declared  and  variables  of  those  types  are  then  assigned  values. 
The  resulting  fixed-point  objects  are  represented  in  memory  as 
shown  in  the  memory  map  following  the  code  segment. 


type  T1 

IS  DELTA 

0.1 

type  T2 

IS  DELTA 

0.2 

type  T3 

IS  DELTA 

0.5 

I  :  T1 

=  0.5; 

J  :  T2 

=  -0.5; 

K  :  T3 

II 

o 

tn 

L  :  T1 

0.3; 

RANGE 

—1 .0  . .  + 

1.0; 

RANGE 

-1.0  ..  + 

1.0; 

RANGE 

-1.0  .  .  + 

1.0; 

0  59  63 


I 

0 

0 

1000 

J 

1 

1 

00 

K 

0 

0 

01 

L 

0 

0 

101 

For  object  I,  the  number  of  deltas  needed  to  represent  the  value 
is  8;  therefore,  8  x  .0625  =  .5.  For  object  J,  the  number  of  deltas 
needed  to  represent  the  value  is  -4;  therefore,  -4  x  .125  =  -0.5. 
For  object  K,  the  n\imber  of  deltas  needed  to  represent  the  value 
is  1;  therefore,  1  x  .5  =  0.5. 

In  the  preceding  examples,  the  value  represented  (0.5)  was 
evenly  divisible  by  DELTA.  This  is  not  always  the  case.  For 
object  L,  the  number  of  deltas  needed  to  represent  the  value  is  5, 
and  5  x  0.0625  s  .3125,  which  is  rounded  to  the  nearest 
fixed-point  nximber,  0.3. 


The  following  code  segrment  creates  three  character  variables, 
assigning  them  values.  Those  character  objects,  when  unpacked, 
au*e  represented  in  memory  as  shown  in  the  memory  maps 
immediately  following  the  code  segment. 
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Unpacked  string  types 
5.5.2.6 


Unpacked  Boolean  types 
S.5.2.7 


char_val_l 

char_val_2 

char_val_3 


:  character 
:  character 
:  character 


A'  ; 

— 'CVl 

B'  ; 

— 'CV2 

C'  ; 

—  *CV3 

memory  map 
memory  map 
memory  map 


55  63 


String  types  are  packed  by  default  in  Cray  Ada.  See  “Packed 
string  types,”  page  87,  for  details  on  how  packed  strings  are 
stored  in  memoiy. 


The  following  code  segment  sets  two  Boolean  variables  and  then 
declares  and  sets  a  Boolean  array.  Those  Boolean  objects,  when 
unpacked,  are  represented  in  memory  as  shown  in  the  memory 
maps  following  the  code  segment. 

A:  Boolean  ;=  True; 

B;  Boolean  ;=  False; 

type  Bool_Array  is  array  (1  ..  3)  of  Boolean; 
Bool_Val  :  Bool_Array  :=  (True,  True,  True); 

— 'BV'  indicates  the  boolean  array  memory  map 
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Unpacked  enumeration 

types 

5.5.2.8 


Unpacked  access  types 
5.5.2.9 


The  following  code  segment  declares  two  objects  of  type 
enumeration  and  then  sets  three  variables.  The  resulting 
enumeration-type  objects,  when  impacked,  are  represented  in 
memory  as  shown  in  the  memory  maps  following  the  code 
segment. 

type  Color  is  (Red, Green, Blue) ; 
type  enum_array  is  array  (1  ..  3)  of  color; 
i  :  color  :=  blue; 
j  :  color  :=  red; 

)c  :  enum_array  :=  (green,  green,  green)  ; 

0  6163 


i 


j 


k 


The  following  code  segment  defines  an  access  type  to  an  array 
of  integers.  The  resulting  access  type  object,  when  unpacked, 
is  represented  in  memory  as  shown  in  the  memory  maps 
following  the  code  segment. 

type  cell  is  array  (1  ..  5)  of  integer; 
type  Link  is  access  Cell; 

P  :  Link  :=  new  Cell; 

On  CRAY  Y-MP  and  CRAY-2  systems,  the  object  P  is  represented 
as  follows: 


0  31  63 
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Unpacked  record  types 
5.5.2.10 


Interned  representation 

of  packed  types 

5.5.3 

Packed  unsigned  integer 

types 

5.5.3. 1 


On  CRAY  X-MP  systems,  the  object  p  is  represented  as  follows: 


0  39  63 


The  following  code  segment  declares  a  record  t3T)e  and  sets  the 
fields  within  the  record.  The  resulting  record-type  object,  when 
unpacked,  is  represented  in  memory  as  shown  in  the  memory 
maps  following  the  code  segment. 


procedure  Record_file  is 
type  Data  is 
record 


Name  : 

String  (  1  ..  10); 

—  'N' 

in 

memory 

map 

Date  : 

Integer; 

—  »D' 

in 

memory 

map 

Vote  : 

Boolean; 

--'V' 

in 

memory 

map 

end  Record; 

PRAGMA  PRESERVE_LAYOUT  (ON  =>  Data) ; 
Person  :  Data  :=  ('SMITH  5,  true) ; 


0  7 

15  23 

31  39 

47 

55 

63 

S 

M 

I 

T 

H 

sp 

sp 

sp 

sp 

sp 

Undefined 

N 


60  63 


101 


62  63 


The  following  subsections  show  the  memory  layouts  within  Cray 
Research  systems  for  sample  objects  of  Adas’  packed  data  types. 


The  following  code  segment  declares  integer  types  and  arrays  of 
integer  types  and  then  assigns  values  to  variables  of  those  types. 
Those  variables,  when  packed,  are  represented  in  memory  as 
shown  in  the  memory  maps  following  the  code. 
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Packed  signed  integer 

types 

5.5.3.2 


Packed  character  types 
5.5.3.3 


Packed  string  types 
5.5.3.4 


subtype  small_int  is  integer  range  1  ..10; 
type  Short  is  array  (1  ,.  3)  of  small_int; 
Pragma  Pack  (Short); 


K  : 

Short  : = 

(2,4,6) ; 

0  3 

1  7 

11 

63 

K 

0010 

0100 

Oliol 

1 

0 

The  following  code  segment  declares  signed  integer  types  and 
aiTa3rs  of  signed  integer  types  and  then  assigns  values  to 
variables  of  those  types.  Those  variables,  when  packed,  are 
represented  in  memory  as  shown  in  the  memory  maps  following 
the  code. 

subtype  small_int_l  is  integer  range  -5  ..  5; 
type  Short_l  is  array  (1  ..  3)  of  small_int_l; 
Pragma  Pack  (Short_l); 

L  :  Short_l  :=  (-3,-2,4); 


0  3 

7 

11 

L 

1101 

iiiol 

1 

0100 

0 

The  following  code  segment  declares  am  array  of  characters  and 
then  assigns  it  a  value.  That  array  object  (packed)  is 
represented  in  memory  as  shown  in  the  memory  map 
immediately  following  the  code  segment. 

type  Char_Array  is  array  (1  ..  3)  of  Character; 
PRAGMA  PACK(Char_Array ) ; 

Char_Val  :  Char_Array  :=  ('A',  'B' .  'C'); 


0  7 

15 

23 

63 

A 

B 

C 

Undefined 

Strings  in  Cray  Ada  are  always  packed  by  default  and  do  not 
require  a  pragma  PACK  statement.  The  following  code 
segment  declares  a  string  subtype  and  then  assigns  a  value  to  a 
string  object  of  that  subtype.  That  string  object  is  represented  in 
memory  as  shown  in  the  memory  map  following  the  code 
segment. 
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Packed  Boolean  types 
5.5.3.5 


Packed  enumeration  types 
5.5.3.6 


Packed  record  types 
5.5.3.7 


subtype  String_type  is  string  (1  ..  3); 
s_t_String  :  String_type  :=  ('ABC'); 


0  7 

15 

i  23 

63 

1 

A  1 

B 

C 

Undefined 

The  following  code  declares  a  Boolean  array  and  assigns  values 
to  it.  The  resulting  object,  when  packed,  is  represented  in 
memory  as  indicated  by  the  memory  map  following  the  code. 

type  Bool_Array  is  array  (1  ..  3)  of  Boolean; 
Pragma  Pack  (Bool_Array) ; 

Bool_Val  :  Bool_Array  :=  (True,  True,  True) ; 


0  3 


63 


0 


The  following  code  segment  declares  an  enumeration  type  and 
assigns  it  a  value.  The  result,  when  packed,  is  represented  in 
memory  as  shown  in  the  memory  map  following  the  code 
segment. 

type  Color  is  (Red, Green, Blue) ; 
type  enuin_array  is  array  (1  ..  3)  of  color; 
Pragma  Pack  {enum_array) ; 
k  ;  enum_array  :=  (green, green, green); 


63 


01 


01  01 


The  following  code  segment  declares  a  record-type  object, 
assigning  it  values.  The  resulting  record,  when  packed,  is 
represented  in  memory  as  shown  in  the  memory  map  following 
the  code  segment. 
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subtype  Small_int  is  integer  range  0 
type  Data  is 
record 

Init_l  :  Character; 

Init_2  :  Character; 

Name  :  String  (  1  ..  10); 

Year  :  Small_int; 

Vote  :  Boolean; 
end  record; 

PRAGMA  Pack (Data) ; 

PRAGMA  PRESERVE_LAYOUT  (ON  =>  data) ; 
Person  :  Data  ;=  ('J',  'X',  'SMITH 


2000; 


'  ,  5 ,  t  rue )  ; 


0  7  15  23  31  39  47  55  63 

J 

X 

s  1 

M  I  T  H  1  sp 

0 

7  15  23  31  39  42  44  63 
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sp 

sp 

sp  1  0  jlOlIl  Undefined 

V  '  u  '■  — 

Year  Vote 


Internal  representation 
of  unconstrained  arrays 

5.6.4 


Unconstrained  8UTa3rs  have  a  descriptor  block  associated  with 
them.  The  following  subsection  discusses  the  vise  of 
unconstrained  arrays  and  the  descriptor  block  information 
associated  with  them. 


Memory  layout  of 
unconstrained  arrays 


5.5.5 


When  using  unconventional  means  (such  as  '  address  or  an 
access  type  generated  by  an  iinchecked  conversion)  to  reference 
an  \mconstrained  array,  the  address  pointed  to  is  a  descriptor 
block  containing  information  about  the  unconstrained  array. 
The  size  of  this  descriptor  block  depends  on  the  data  type  and 
dimensionality  of  the  array.  Because  the  descriptor  block  size 
differs  with  each  situation,  when  using  this  sort  of  structure 
users  must  be  careful  to  address  the  correct  structure,  and  they 
may  need  to  determine  the  number  of  words  being  allocated  for 
the  descriptor  block  of  the  specific  xinconstrained  array.  The 
'size  attribute  provides  the  actual  size  of  the  auray,  not 
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including  the  descriptor  block.  Access  to  the  descriptor  block  is 
not  needed  by  application  programmers,  so  care  must  be  taken 
to  address  the  array  correctly.  The  following  example  shows  one 
way  a  user  can  obtain  the  various  addresses  to  the  array: 


with  System; 

procedure  vect_test_lb  is 

type  vect_array  is  array  ( 

integer  range  <>)  of  integer; 

type  point  is  access  vect_ 

array; 

subtype  vect  is  vect_array 

(1  ..  5); 

i  :  point; 

k  :  vect ; 

L,  M,  N  :  system. address; 

begin 

i  :=  new  vect ' (others=>5) ; 

id)  :=  1; 

i(2)  :=  2; 

i(5)  :=  15; 

i(3)  :=  7; 

L  :=  i 'address; 

—  address  of  access  variable 

M  :=  i .all 'address; 

—  address  of  descriptor  block 

N  :=  i (i' first) 'address; 

—  address  of  first  element 

end  vect_test; 
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The  following  shows  a  sample  memory  layout  for  an 
unconstrained  array: 


00120642:  0000000000000000134657 


00134657 

00134660 

00134661 

00134662 

00134663 

00134664 

00134665 

00134666 

00134667 

00134670 

00134671 


0000000000000000000005 

0000000000000000000001 

0000000000000000000005 

0000000000000000000001 

0000000000000000000001 

0000000000000000000002 

0000000000000000000007 

0000000000000000000005 

0000000000000000000017 

0000000000000000000000 

0000000000000000000000 


In  the  preceding  example,  object  L  contains  the  address  to  access 
type  i.  In  the  preceding  memory  diagram,  this  value  is  stored  at 
memory  location  120642.  The  access  type  points  to  the 
descriptor  block  of  the  array.  Object  M  contains  the  address  to 
the  descriptor  block  for  the  imconstrained  array.  This  descriptor 
block  begins  at  address  134657  in  the  example.  Object  N 
provides  the  address  to  the  first  element  of  the  array.  In  the 
example,  the  array  begins  at  address  134663  and  continues 
through  address  134667.  The  value  in  object  N  is  most  hkely  the 
address  you  may  need. 


Caution 

The  sizing  of  descriptor  records  may  change  fi-om  release  to 
release  and  has  no  bearing  the  way  other  vendors  may  store 
descriptor  information.  Using  '  address  or  an  access  type  to 
reference  the  descriptor  block  of  an  unconstrained  array  is  done 
at  the  programmer’s  risk.  CRI  does  not  guarantee  consistent 
sizing  of  descriptor  records. 
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Storage 

management 

5.6 


Task  management 

5.7 


The  main  program  and  all  tasks  in  it  share  a  single  heap  used 
for  all  dynamically  allocated  storage  that  the  program  requires. 
Stack  space  for  Ada  tasks,  including  the  main  program  task,  is 
allocated  on  the  heap. 

Heap  allocation  and  deallocation  requests  are  vdtimately 
satisfied  by  calls  to  routines  in  the  RSP  storage  management 
module.  Tliese  routines  manage  a  heap  composed  of  one  or  more 
contiguovis  areas  of  memory  called  pools.  If  the  available  pools 
cannot  satisfy  an  allocation  request,  a  routine  is  called  to 
allocate  another  pool  area,  which  will  be  noncontiguous,  access 
type  collections  are  chained  together  and  released  when  the 
access  type  declaration  scope  is  exited. 

If  a  constrained  subt3npe  of  an  unconstrained  array  is  fi’eed  using 
unchecked  deallocation,  the  available  memory  is  returned  to  the 
program  heap.  This  memory  is  now  available  for  reuse  by  the 
program.  Therefore,  if  a  new  array  is  defined  dynamically,  that 
space  may  be  reused  by  the  memoiy  manager  to  represent  the 
structure,  provided  there  is  sufficient  memory  in  that  heap  pool. 


The  Cray  Ada  runtime  manages  tasks  through  a  variety  of  steps. 
Tasks  are  first  elaborated,  then  activated,  then  executed,  with  a 
number  of  conditions  possible  for  each  step.  This  subsection 
discusses  the  steps  in  task  management,  how  tasks  are 
scheduled,  and  how  you  can  synchronize  them  and  delay  them. 
Tzisks  may  not  register  for  hardware  interrupts  in  this 
implementation. 
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Task  elaboration 

5.7.1 


Task  delay 
5.7.2 


When  a  task  is  elaborated,  a  stack  is  allocated  on  the  heap  for 
the  task  to  use.  You  can  specify  a  task’s  initial  stack  size  by 
using  a  length  clause.  If  you  do  not  use  a  length  clause,  the 
initial  stack  size  is  the  default  of  4000  words.  It  may  also  be 
specified  by  using  the  -Y  switch  when  binding. 

If  the  initial  stack  size  is  insufEcient,  a  task’s  stack 
automatically  grows  d5rr.aniically.  A  STORAGE_ERROR  exception 
occurs  only  when  there  is  no  more  space  in  the  heap  for 
additional  stack  segments.  Expansions  to  the  stack  are  made  by 
calls  to  SSTKOFEN,  taking  the  system  default  for  the  size  of  the 
increment  requested.  The  default  increment  size  is 
site-configurable,  so  check  with  your  sj^tem  support  staff  if  you 
need  to  know  what  the  value  is  for  your  system.  A  task’s  stack  is 
deallocated  when  the  task  terminates. 

A  Task  Control  Block  (TCB)  is  allocated  on  the  heap  for  each  task 
and  is  deallocated  only  when  the  master  scope  for  the  task  is 
terminated. 


The  delay  statement  is  implemented  using  the  system  clock.  If 
an  Ada  program  is  rolled  out  of  execution  by  the  operating 
system  immediately  after  processing  of  a  delay  statement  of  x 
seconds  and  is  subsequently  rolled  back  in  after  being  suspended 
fory  seconds,  the  delay  is  considered  to  have  expired  ify  is 
greater  than  i.  That  is,  the  time  for  which  a  job  is  suspended 
coxmts  against  delay  times  in  that  job,  the  clock  keeps  running 
even  when  the  job  is  suspended. 


Note 

Because  a  real-time  clock  is  used  to  monitor  time,  and  the  Ada 
program  is  not  the  only  process  on  the  S3^tem,  the  execution 
order  of  Ada  tasks  is  affected  by  the  priority  of  the  Ada  program 
and  the  system  workload. 
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Task  rendezvous 

5.7.3 


Task  scheduling 
5.7.4 


Tasks  that  call  entries  in  other  tasks  are  placed  on  an  entry 
queue,  specific  to  the  entry  point  they  caU,  in  first-come, 
first-served  basis.  In  addition  to  being  placed  on  a 
priority-based  execution  queue,  a  task  making  a  timed  entry  ceiU 
is  also  placed  in  the  delay  queue  based  on  the  specified  delay 
period. 

The  server  or  caller  (whichever  comes  last)  places  the  server  on 
the  ready  queue  so  that  the  rendezvous  can  occur.  A  stack  of 
callers  is  maintained  during  the  rendezvous  to  allow  for  nested 
accept  statements  and  the  proper  relinquishing  of  the 
appropriate  caller  at  the  end  of  a  rendezvous. 

Pragma  PRIORITY  does  not  afiect  the  selection  firom  pending 
entry  rails  in  a  selective  wait  statement. 

Parameter  passing  at  a  rendezvous  depends  on  a  parameter 
block  bvult  by  the  caller  at  the  time  of  the  call.  A  pointer  to  the 
block  is  passed  to  the  called  task  when  it  reaches  the  rendezvous 
point. 


This  subsection  describes  the  way  in  which  the  Ada  runtime 
schedules  tasks  for  execution  based  on  their  relative  priorities 
and  on  the  synchronization  points  and  entry  calls  for  which  they 
may  wait. 

A  task  is  placed  on  one  of  64  different  execution  queues  based  on 
its  priority  1  through  64;  64  is  the  highest  priority.  You  can 
explicitly  set  a  task’s  priority  using  prEtgma  PRIORITY,  or  accept 
the  automatic  default  priority  of  31.  The  ordering  of  tasks  of 
eqxial  priority  (within  the  same  execution  queue)  is 
indeterminate.  The  first  task  in  the  highest  priority  queue  is 
activated  first  and  runs  until  it  reaches  a  synchronization  point. 
AU  tasks  in  the  highest  priority  queue  are  activated  and  run 
first.  When  the  highest-priority  queue  is  empty,  or  all  its  tasks 
are  blocked,  tasks  &om  the  next-highest  priority  queue  are 
activated  and  run.  This  process  continues  imtil  all  tasks  in  all 
priority  queues  have  terminated. 
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If  an  executing  task  becomes  blocked  by  execution  of  an  Ada 
delay  statement,  it  is  placed  on  the  delay  queue.  If  a  task  is 
blocked  because  it  is  waiting  for  a  synchronization  point,  it  is 
placed  on  the  bottom  of  the  execution  queue  from  which  it  was 
taken.  If  a  task  is  blocked  because  it  is  waiting  on  an  entry  call 
to  another  task,  it  is  placed  on  the  entry  queue  for  that  entry 
point. 

Tasks  are  placed  in  the  entry  queue  and  the  execution  queue  in 
first-in,  firat-out  (FIFO)  order.  Tasks  are  placed  in  the  delay 
queue  in  the  order  of  their  specified  delajrs,  with  the  shortest 
delay  at  the  finnt  of  the  queue. 

When  a  task  reaches  a  synchronization  point  or  executes  a 
delay  statement,  a  task  switch  occ\irs  if  another  task  of  higher 
priority  is  ready  to  run  (having  completed  a  wait).  A  task  switch 
is  the  transfer  of  the  executing  task  from  executing  to  either 
termination  or  a  queue,  and  the  consequent  transfer  of  another 
task  fi:nm  its  execution  queue  to  executing  (see  LRM  9.11(2)). 


Note 

Because  the  Ada  runtime  does  not  use  time  slicing  when 
executing  tasks,  a  task  can  hog  the  CPU  if  it  is  allowed  to 
execute  without  reaching  a  delay  or  a  synchronization  point, 
such  as  a  rendezvoxis. 


The  Ada  tasking  model  implemented  in  the  Cray  Ada 
Environment  does  not  currently  support  multiple  CPUs.  Future 
releases  of  the  Cray  Ada  Environment  will  support  the  division 
of  Ada  tasks  among  multiple  CPUs.  Because  of  the  current 
single-CPU  implementation,  tasking  reduces  throughput  rather 
than  increases  it,  due  to  the  tasking  overhead. 
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Exception  handling  Each  declared  exception  is  identified  by  an  address  that  points 
5  g  to  a  location  to  which  the  exception  name  resides.  When  an 

exception  is  raised,  the  address  of  the  exception  identifier  and 
the  address  at  which  the  exception  occurred  are  passed  in  a  call 
to  the  runtime  system.  The  occurrence  address  is  then  vised  to 
determine  in  what  scope  the  exception  occurred.  After  that,  the 
dynamic  link  is  followed  until  an  exception  handler  that  matches 
the  exception  name  is  encountered.  Exceptions  cause  no 
runtime  overhead  unless  raised.  The  presence  of  exception 
handlers,  however,  can  inhibit  certain  optimizations.  The  Cray 
Ada  Environment  adheres  strictly  to  the  requirements  of 
exception  handling  within  tasks. 

By  default,  the  only  signal  that  Cray  Ada  traps  is  SIGFPE 
(UNICOS  signal  08).  This  is  mapped  to  the  Ada  exception 
numeric_error. 

A  package  called  UNICOS_Signal_Support  allows  an  Ada 
program  to  trap  most  UNICOS  signals.  When  enabled,  these 
signals  are  mapped  to  the  exception  UNIC0S_SIGNAL.  There  are 
no  defavdt  mappings  of  UNICOS  signals  to  UNICOS_Signal.  Any 
mappings  must  explicitly  be  turned  on  by  the 
Set_Signal_Mapping  routine. 


Unhandled  exceptions  When  an  unhandled  exception  occurs,  a  message  of  a  standau*d 
5.8.1  format  is  sent  to  the  standard  error,  indicating  the  type  of  the 

exception  and  where  it  was  raised.  For  the  predefined 
exceptions,  additional  information  is  provided  about  the 
condition  that  raised  the  exception.  The  general  format  of  these 
exception  messages  is  as  follows: 


>>>  UNHANDLED  EXCEPTION  «< 

Exception  :  exception Jype 
Reason  :  exception _condition 

raised  in  unit_name.proc_name  at  line  linejnum 

called  from  unitjiame.  proc_name  at  line  linejium 
called  from  unit_name.proc_nanie  at  line  linejnum 
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The  exception  Jype  is  the  t3T)e  of  exception  raised. 

The  exception _condition  describes  the  cause  of  the  exception  for 
predefined  exception  types. 

The  unitjiame  is  the  name  of  the  unit  in  which  the  exception 
was  first  raised. 

The  procjiame  is  the  Ada  name  of  the  innermost  scope  in  which 
the  exception  occvirred. 

The  linejium  is  the  fine  number  of  the  source  file  at  which  the 
exception  occurred. 

The  exception  Jype  field  will  be  one  of  the  five  predefined 
exception  types  or  a  user-defined  t3rpe.  For  the  five  predefined 
types,  this  consists  of  one  of  the  following  strings; 

constraint_error 

program_error 

storage_error 

nvuneric_error 

tasking_error 

For  user-defined  exceptions,  the  exception  Jype  field  wiU  be  of 
the  following  form: 

exception  jiame 

The  exception  juime  is  the  Ada  name  of  the  exception,  as 
declared  by  the  user. 

For  predefined  exceptions,  exception _condition  is  the  string  that 
indicates  the  reason  for  the  exception.  Table  6  presents  the 
possible  exception  conditions  that  may  occur  for  each  of  the  five 
predefined  exceptions.  For  user-defined  exceptions,  this  item 
will  not  be  present. 

The  unitjiame  and  proc_name  identify  the  scope  in  which  the 
exception  was  first  raised.  The  unitjiame  is  the  Ada  name  of 
the  unit  in  which  the  exception  was  raised.  The  procjiame  is 
the  Ada  name  of  the  innermost  named  scope  in  which  the 
exception  was  raised. 

The  remainder  of  the  message  consists  of  the  sequence  of 
subprogram  calls  that  resulted  in  the  call  to  the  scope  in  which 
the  exception  occurred.  These  calls  are  presented  in  reverse 
order,  with  the  most  recent  calls  appearing  first  in  the  list. 
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Exception  reporting 

5.8.2 


Table  6.  Exception  conditions  for  predefined  exception  types 


exceptionjtype 

exceptionjcondition 

constraint_error : 

Access  check 

Discriminant  check 

Index  check 

Length  check 

Range  check 

Range /index  check 

nuineric_error : 

Division  by  zero 

Numeric  overflow 

prograin_error : 

Subprogr2uti  elaboration 
Generic  elaboration 

Function  without  return 

Task  elaboration 

storage_error : 

Allocator  failure 

Stack  overflow 

Task  stack  allocation 

tasking_error: 

Select  statement  unopen 
Child  activation 

Task  not  callable 

A  new  function.  System.  Report _Error,  has  been  added  to  the 
system  package.  System .  Report_Error  can  be  called  by  the 
user  program  from  any  exception  handler.  It  prints  a  traceback 
of  the  most  recently  handled  exception,  including  a  traceback 
from  the  point  of  the  call  to  System.  Report_Error  itself. 

In  the  following  example  prod  is  called,  proc2  is  called  from 
prod.  An  exception  is  raised  in  proc2,  prod  handles  it  and 
System. Report _Error  is  called  and  the  traceback  is  printed. 
The  program  then  continues. 
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with  Text_IO; 
with  System; 
procedure  treperr  is 

My_Error  :  Exception; 

procedure  proc2  is 
begin 

Text_IO. Put_line  (  'Raising  exception...'); 
raise  My_Error; 
end  proc2 ; 

procedure  prod  is 
begin 
proc2 ; 
exception 

when  My_Error  => 

Text_IO. Put_line ( 'Handling  exception  ...'); 

System. Repor t_Er ror ; 
end  prod; 

begin 
prod  ; 

Text_Io. Put_line (  'Continuing  after  handling  exception...'); 
end  treperr; 

Output 


Raising  exception  .  .  . 

Handling  exception  . . . 

>>>  Exception  tracebaclc  from  Report_Error  <<< 

Exception:  MY_ERROR 

raised  in  sec/treperr .proc2  at  line  10 

called  from  sec /treperr  .prod  at  line  15 
Report_Error  invoked  in  sec/treperr .prod  at  line  19 

called  from  sec/treperr. treperr  at  line  23 

Continuing  after  handling  exception  .... 
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Tasking  exceptions 

5.8.3 


UNICOS  signal  support 
5.8.4 


The  user  may  also  specify  that  all  exceptions  raised  in  a  task, 
handled  or  not,  be  displayed.  This  may  be  specified  through  use 
of  the  -X  switch  when  binding  a  program. 


The  user  may  also  specify  that  all  exceptions  raised  in  a  task, 
handled  or  not,  be  displayed.  Four  routines  are  provided  for 
setting  the  specific  signals  to  be  caught;  only  those  signals 
specified  through  this  mechanism  (except  for  SIGFPE)  are 
caught.  All  others  pass  through  and  are  treated  in  the  default 
manner  defined  by  UNICOS.  This  lets  you  catch  signals  fi'om 
other  languages  if  you  so  choose. 

When  a  particular  signal  is  set  and  caught,  you  wiU  not  trap  that 
signal  again,  unless  you  reregister  the  handler  through  the 
signal  mapping  mechanism.  The  specifications  for  this  package 
foUow. 


100 


Cray  Research,  Inc. 


SR-^082  2.0 


Cray  Ada  Environment,  Volume  2:  Programming  Guide  Ada  Program  Runtime  Model 


• 

Package  'Jt;iCOS_Signal_Scppcrc  is 

Type  Signal  is 

ISIGHUP, 

Hangup 

SIGINT, 

Interrupt 

SIGQUIT, 

Quit 

SIGILL, 

Illegal  instruction 

SIGTRAP, 

Trace  crap 

SIGABRT, 

Hardware  error 

SIGERR, 

Error  Exit 

--SIGFPE, 

Floating-point  exception  (converted 

to  Numeric_Error ) 

—  SIGKH.L,  -- 

Kill  (Cannot  be  caught  or  ignored) 

SIGPRE, 

Program  range  error 

SIGORE, 

Operand  range  error 

SIGSYE, 

Bad  argument  to  syscemc  call 

SIGPIFE, 

Write  on  a  pipe  with  no  one  to  read 

I  c 

SIGALP-M, 

Alarm  clock 

SIGTER.M. 

Software  termination  from  kill 

SIGUSRl, 

User  defined  signal  1 

SIGUSR2, 

User  defined  signal  2 

SIGCLG, 

Death  of  a  child  process  (This  is 

not  supported  in  Ada) 

SIGPWR, 

Power  failure 

SIGHT, 

Multitasking  wake-up  signal 

SIGMTKILL,  -- 

Multitasking  kill  signal 

SIGBUFIO, 

Fortran  asynchronous  I/O  completion 

SIGRECCVERY, — 

Recovery  signal  (advisory) 

SIG'JME, 

Uncorrectable  Memory  Error 

SIGDLK, 

True  deadlock  detected 

SIGCPULIK,  -- 

SIGSHUTDfJ,  -- 

System  shutdown  imminent  (advisory) 

SIGCRAY4, 

Reserved  for  Cray  Research,  Inc. 

SIGRPE, 

Register  Parity  Error 

SIGCRAY2, 

Reserved  for  Cray  Research,  Inc. 

SIGCRAYl, 

Reserved  for  Cray  Research,  Inc. 

SIGCRAYC, 

Reserved  for  Cray  Research,  Inc. 

SIGINFO) ; 

Quota  warning  or  limit  reached. 

(continued) 

SR-S082  2.0 


Cray  Reaaarch,  Inc. 


101 


Ada  Program  Runtime  Model 

Cray  Ada  Environment,  Volume  2:  Programming  Guide 

• 

For  Signal  use  (SIGHUP 

=>  101, 

SIGINT 

=>  102, 

SIGQUIT 

=>  103, 

SIGILL 

=>  104, 

SIGTPJiP 

=>  105, 

SIGABRT 

=>  10c, 

SIGERR 

=>  107, 

— SIGFPE 

=>  108, 

--SIGKILL 

=>  109, 

SIGPRE 

=>  110, 

SIGORE 

=>  111, 

SIGSYS 

=>  112, 

SIGPIPE 

=>  113, 

SIGALRM 

=>  114, 

SIGTERM 

=>  115, 

SIGUSRl 

=>  116, 

SIGUSR2 

=>  117, 

SIGCLD 

=>  118, 

SIGPWR 

=>  119, 

SIGHT 

=>  120, 

SIGMTKILL 

=>  121, 

SIGBUFIO 

=>  122, 

SIGRECOVERY 

=>  123, 

SIGUME 

=>  124, 

SIGDLK 

=>  125, 

SIGCPULIH 

=>  126, 

SIGSHUTDN 

=>  127, 

SIGCRAY4 

=  >  128 , 

S I GRPE 

=  ■>  129, 

SIGCRAY2 

=>  '30, 

SIGCRAYl 

=  >  .,31, 

SIGCRAYO 

=>  132, 

SIGINFO 

=>  148) ; 

(continued) 
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Type  Mappir.g_Stat:es  is  {  Mapping_off,  Mapping_On  )  ; 

--  DetaUiC  IS  Mappirig_Of  for  all  signs.  The  default 
--  is  to  pass  the  signal  on  so  that  a  user  may  write 
—  their  own  signal  handler. 

Procedure  Set_Signal_Mapping  i  direction:  in  Mapping_States  ) ; 
--  Sets  signal  mapping  for  all  signals  to  'direction' . 


Procedure  Set_Signal_.Mapping 


sig  :  in  Signal ; 

direction:  in  Mapping_States  ) ; 


--  Sets  signal  mapping  for 


'signal'  to  'direction'. 


Function  SignaI_N'jjiiber  return  Natural; 

--  Returns  the  signal  n'umber  of  the  signal  that  was  raised.  Tha  value 
—  returned  is  the  UNICOS  value  defined  in  /usr/include/sys/signal . h . 

Function  Signal_Number  return  Signal; 

--  Returns  the  number  of  the  signal  that  was  raised.  This  value 
--  IS  compared  against  Signal  declared  above. 

'JNICOS_SI 3NAL :  Exception; 

--  Exception  that  signals  are  mapped  to  if  mapping  is  on. 

17NICOS_SIGNAL_Not_Raised:  EXCEPTION; 

--  Exception  that  is  raised  if  it  was  not  possible 
--  to  raise  UNICOS_SIGNAL . 
end  tJNICOS_Signal_Support  ; 


The  following  example  shows  signal  handling  with  package 
UNICOS_Signal_Support.  The  handler  is  turned  on  only  to 
catch  SI  GORE.  All  other  signals  will  be  caught  in  the  default 
manner  by  UNICOS. 
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—  This  causes  a  UNICOS  exception  ORE  which  is  caught  in  one 

—  exception  block,  and  not  in  another. 


with  UNICOS_Signal_Support ; 
with  Unchecked_Conversion; 
with  Text_IO; 

r«’*'^'~cdaie  Siguest  is 

package  SIG  renames  UNICOS_Signal_Support ; 
package  10  renames  Text_I0; 

—  this  causes  an  ORE  signal  by  referencing  nonexistent  memory 


procedure  Raise_0RE  IS 

type  Acctype  is  access  Integer; 

function  Int2Acc  is  new  Unchecked_Conversion( Integer,  Acctype); 
A:  Acctype  :=  Int2Acc (-1) ; 

I:  Integer; 
begin 

I:=  A.ALL; 
end  Raise_0RE; 

begin 

IO.Put_Line  ('Exception  Handling  Test'); 

10 .New_Line; 


—  turn  on  signal  mapping  for  ORE,  raise  an  ORE,  and  catch  it 

Exception_Block_l : 
begin 

STG.Set_Signal_Mapping(SIG.SIGORE,  SIG.MAPPING_ON) ; 

Raise.ORE; 

10. Put_Line ( 'Test  1:  FAILED  -  ORE  didn't  get  raised'); 

(continued) 
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exception 

when  SIG.UNICOS_Signal  => 

if  SIG. Signal_Number  =  11  then 

10. Put_Line ( 'Test  1:  PASSED  (caught  the  ORE)'); 
else 

10. Put_Line ( 'Test  1:  FAILED  (caught  the  wrong  signal)') 
raise 
end  i f ; 

when  others  => 
raise; 

end  Except ion_Block_l; 


--  turn  off  signal  mapping  for  ORE,  raise  an  ORE,  and  fail  to 
—  catch  it 

Excepticn_Block_2 

begin 

SIG.Set_Signal_Mapping  (SIG.SIGORE,  SIG.MAPPING_OFF); 

Raise_0RE; 

I0.Put_Line( 'Test  2:  FAILED  (ORE  didn't  get  raised)'); 
exception 

when  SIG.UNICOS_Signal  => 

if  SIG.  Signal_Nuinber  =  11  then 

IO.Put_Line  ('Test  1:  FAILED  (caught  the  ORE) 
else 

10. Put_Line ( 'Test  1;  FAILED  (caught  the  wrong  signal)'); 
raise; 
end  i f ; 
when  others 
raise; 

end  Except ion_Block_2 ; 
end  Sigtest; 
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The  following  is  the  output  from  the  previor  ,,’'ogram.  Notice 
that  with  signal  mapping  on,  as  in  the  first  exception  handling 
block,  the  program  catches  and  properly  identifies  the  ORE  signal 
that  occurred.  In  the  second  exception  block,  signal  mapping  is 
turned  off,  and  when  the  ORE  occurs  ag.Ji'  the  default  UNICOS 
action  is  taken  and  you  get  a  core  dvimp. 


Exception  Handling  Test 

Test  1:  PASSED  (caught  the  ORE) 
Operand  range  error  (core  duit?)ed) 


Cray  Ada  does  not  allow  the  foUowdng  UNICOS  signals  to  be 
trapped: 

SIGKILL  (Signal  09) 

SIGCLD  (Signal  18) 

When  any  of  the  preceding  signals  are  trapped,  (except  for  kill 
which  can  not  be  trapped)  the  Ada  runtime  provides  a  traceback 
showing  the  signal  captured  and  the  general  location  at  which 
the  error  occurred  or  was  translated  into  an  Ada  exception.  The 
following  information  shows  the  traceback  from  an  unhandled 
UNICOS  exception  when  signal  mapping  has  been  enabled: 


>»  UNHANDLED  EXCEPTION  «< 

Exception:  UNICOS_SIGNAL 

Reason:  UNICOS  signal  #11  (SIGORE)  Operand  Range  Error 

raised  in  sec/sigtest_l . sigtest_l  at  line  39 


Exception  handling  Exceptions  that  originate  in  a  foreign  language  routine  or  that 

from  foreign  languages  are  propagated  up  the  call  chain  in  a  foreign  language  routine 
5.8.5  are  not  propagated  into  the  Ada  caller.  Exception  messages  are 

printed  out  with  a  complete  traceback  that  specifies  the  address 
from  which  the  exception  occurred  or  from  which  the  routine  was 
called. 
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The  program  then  terminates.  It  is  recommended  that  an 
EXPORT  routine  have  an  exception  handler  to  avoid  the 
possibility  that  any  exceptions  will  escape. 

The  following  is  an  exception  that  occurred  in  a  Fortran 
subroutine  called  from  an  Ada  main  program.  The  exception 
used  the  INTERFACE  pragma.  Notice  that  the  exception  location 
in  the  Fortran  routine  is  given  as  an  address  rather  than  as  a 
line  number. 


>>>  Unhandleable  exception  raised  in  FORTRAN  routine  «< 

Exception:  NUMERIC_ERROR 

raised  in  FORTRAN  routine  AF_F_FUN  at  or  near  address  161c 

.called  from  sec/ada. f .ada_f  between  lines  11  and  15 


In  the  following  example,  an  exception  occurred  in  an  Ada 
procedure  that  was  called  from  a  Fortran  subroutine  using 
EXPORT  pragma.  The  Fortran  subroutine  was  in  turn  called 
from  an  Ada  main  program  using  INTERFACE  pragma.  Notice 
that  in  the  exception  traceback,  the  calling  location  in  the 
Fortran  routine  is  given  as  an  address  rather  than  as  a  line 
niimber. 


>>>  Unhandled  exception  <« 

Exception:  NUMERIC_ERROR 

raised  in  sec/afa_exported.afa_a_ptoc  at  line  15 

called  from  export  interface  routine  at  address  17075a 
called  from  FORTRAN  routine  AFA_F_UN  at  or  near  address  164d 

called  from  sec/ada_f_ada.ada_f_ada  between  lines  25  and  29 
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Exception  handling  Sometimes,  because  of  optimization,  the  exact  line  number,  at 

with  optimization  which  an  exception  occurs  cannot  be  determined.  The  foUowing 

5.8.6  Ada  source  code  illustrates  this. 


WITH  Text_IO; 

PROCEDURE  L_E  IS 

SUBTYPE  T  IS  Integer  RANGE  -100  ..  100; 

PACKAGE  10  RENAMES  Test_IO; 

PACKAGE  IIO  IS  NEW  Test_IO. Integer_IO (T) ; 


I,  J,  K,  L, 
BEGIN 

IIO. Get (I); 

J:=I+I; 
K  :=  J  +  J; 

L  :=  K  +  K; 

M  :=  L  t-  L; 


M  :  T; 


—  this  is  line  15 


10. Put (*16  times'  ); 
IIO. Put (I, Width  =>  0)  ; 
10. Put (  'is'  )  ; 

IIO. Put (M, Width  =>  0); 
IO.New_Line; 

END  L_E ; 


The  program  accepts  a  number  from  the  input  and  then  doubles 
it  4  times.  This  yields  an  ultimate  result  of  16  times  the  number. 
If  you  enter  4,  it  says  16  times  4  is  64.  However,  because 
the  type  of  the  residt  is  constrained  to  -100  . .  100,  larger 
entered  numbers  yield  exceptions. 

With  no  optimization  (and  thus  no  scheduling),  it  gets  a 
constraint  error  exception  on  line  15  if  you  enter  64,  on  line  16  if 
you  enter  32,  on  line  17  if  you  enter  16,  and  on  line  18  if  you 
enter  8. 

With  optimization  (including  the  scheduler)  on,  if  any  of  the 
additions  3rield.'’  a  result  greater  than  100,  the  program  reports  a 
constraint  error  of  the  following  type: 
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»>  Unhandled  exception  «< 

Exception:  CONSTRA.INT_ERROR 
Reason:  value  vs  range  constraint 

raised  in  sec/l_e.l_e  between  lines  15  and  18 

Because  of  instruction  scheduling,  lines  15  through  20  may  be 
scheduled  such  that  it  is  not  possible  to  determine  the  exact  Une 
number  on  which  the  error  occurred. 


Subroutine 
linkage  model 

5.9 


This  subsection  describes  the  basic  model  used  to  support 
subroutine  linkage  and  data  addressing  for  Ada  on  CRAY  Y-MP, 
and  CRAY  X-MP,  and  CRAY-2  systems,  including  register 
conventions,  stack  frame  layouts,  and  parameter  passing 
mechanisms.  Most  users  do  not  need  this  degree  of  detail,  but 
some  may,  particularly  if  portions  of  their  appUcations  are 
written  in  assembly  language. 

Because  Ada  subprograms  can,  in  general,  be  recursive  and 
reentrant,  subprogram  calls  must  be  modeled  with  a  mechanism 
involving  the  allocation  of  subprogram  data  and  linkage 
information  on  a  stack  in  common  memory,  lb  retain 
compatibility  in  the  presence  of  cross-language  calls,  the  stack 
grows  from  low  to  high  addresses. 

Implementing  this  stack  model  requires  two  dedicated  address 
registers:  a  frame  pointer  register  (FP  =  A7)  and  a  stack 
pointer  register  (SP  =  B66  on  CRAY  X-MP  systems  and  $LM00  + 

2  on  CRAY-2  systems).  The  FP  register  points  to  the  base  of  the 
active  stack  frame.  Parameters,  local  data,  and  other  data  saved 
on  subroutine  entry  are  addressed  by  positive  ofisets  from  FP. 
The  SP  register  marks  the  top  of  the  stack.  It  is  incremented 
and  decremented  during  the  entry  and  exit  of  a  subprogram  and 
when  certain  dynamically  sized  objects  are  allocated  and 
deallocated.  The  FP  register  marks  the  base  of  the  new  stack 
frame  on  entry  to  a  subroutine.  It  is  updated  to  reflect  the 
allocation  of  all  local  data  required  by  the  called  subroutine, 
including  parameters  and  various  subroutine  linkage  pointers. 

Before  calling  a  subprogram,  all  pau'ameters  are  loaded.  On  the 
CRAY  Y-MP  and  CRAY  X-MP  systems,  only  the  first  four  scalar 
and  first  fo\ir  address  parameters  are  loaded  into  B^T  registers. 
The  rest  are  passed  on  the  stack  in  an  overflow  block.  On 
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Calling  sequence  for 
CRAY  Y  MP  and  CRAY 
X-MP  syste^y's 
5.9.1 


CRAY-2  systems,  they  are  all  loaded  into  local  memory  at 
$LM00+8.  On  entry  to  the  called  routine,  the  CRAY  Y-MP  and 
CRAY  X-MP  routines  will  store  the  parameters  that  were  passed 
in  auzihary  storage  to  the  base  of  the  new  stack  frame.  On  the 
CRAY-2  systems,  if  there  is  room  in  the  frame  package  and  none 
of  the  parameters  are  used  up-level  or  referenced  by  address, 
then  the  parameters  will  be  moved  to  the  frame  package. 
Otherwise,  they  will  be  stored  in  common  memory  in  the  new 
stack  frame.  FP  and  SP  are  updated  to  reflect  the  allocation  of 
the  new  frame.  As  part  of  the  return  sequence,  the  subprogram 
restores  the  FP  and  SP  registers  to  the  values  they  had  before 
the  call. 


On  CRAY  Y-MP  and  CRAY  X-MP  systems,  the  stack  frame  layout 
for  a  subprogram  immediately  after  completion  of  its  entry 
sequence  is  as  shown  in  Figure  1. 
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Frame  pointer  (FP) 


Stack  pointer  (SP) 


Link  to  TNB 
Return  address 

Pointer  to  caller’s  parameter  overflow  block 
Link  to  caller’s  frame  base 
Mark  set  pointer 
Saved  global  display  pointer 
Al_Save 

A6_Save 

Address  parameter  1 
Address  parameter  2 
Address  parameter  3 
Address  parameter  4 
Address  of  parameter  overflow  block 

B  register  save  area 

Sl_Save 

S7_Save 

Scalar  parameter  1 
Scalar  parameter  2 
Scalar  parameter  3 
Scalar  parameter  4 

T  register  save  area 


Local  variables 


Low  addresses 

(stkB77) 

(stkBOO) 

(stkBOl) 

(stkB02) 

(stkB03) 

(stkB04) 

(stkBOS) 

{stkB12) 

(stkB13) 

(stkB14) 

(stkBlS) 

(stkB16) 

(stkB17) 

(stkB20-stkB24) 

(stkTOO) 

(stkTOS) 

(stkT07) 

(stkTlO) 

(stkTll) 

(stkT12) 

(stkB13-stkT17)) 


High  addresses 


Figure  1.  Subprogram  stack  frame  layout  on  CRAY  X-MP 
systems  after  completion  of  entry  sequence 
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The  following  list  shows  the  basic  actions  (in  outline)  that  are 

performed  for  subprogram  call,  entry,  exit,  and  return  on 

CRAY  X-MP  systems: 

Within  the  calling  subprogram  the  following  events  occur: 

1.  Load  the  value  of  each  parameter  into  a  B  or  T  register,  as 
appropriate.  Address  parameters  are  loaded  into  B  registers 
(starting  with  B13)  and  scalar  parameters  are  loaded  into  T 
registers  (starting  with  T07).  Only  the  first  four  address  and 
the  first  foiir  scalar  parameters  are  passed  in  auxiliary 
registers.  After  that,  parameters  will  be  stored  on  the  stack. 
B17  will  point  to  the  word  following  the  last  parameter.  This 
means  that  the  last  parameter  would  be  accessed  at  B17-1. 

2.  If  an  elaboration  check  is  required,  check  the  elaboration 
Boolean.  If  it  is  false,  raise  ELABORATlON_ERROR. 

3.  Perform  a  return  jiimp  to  the  entry  point  for  the  destination 
subprogram. 

On  entry  to  the  called  subprogram,  the  following  actions  occur: 

1.  Set  FP  to  SP  (new  firame  base  is  set  to  current  top  of  stack). 

2.  Save  the  A  and  S  registers  that  the  subprogram  wiD  use  in 
BOS  ..  B12  and  TOO  ..  TOG.  Notice  that  AO,  A7,  and  SO  need 
not  be  saved  here. 

3.  Allocate  the  new  fimne  by  setting  SP  to  FP  +  f  r ame_s  i  ze. 

f  raine_size  is  the  sum  of  the  storage  requirements  for  local 
variables,  as  well  as  the  largest  parameter  overflow  block 
that  this  routine  needs  to  biiild. 

4.  Initialize  B77  with  the  pointer  to  the  subprogram’s  TVaceback 
Name  Block  (TNB). 

5.  If  the  subprogram’s  lexical  level  is  less  than  the  global 
display  size  and  this  subprogram  has  children  that  might 
reference  its  data  up-level,  then  save  global_di splay  (LL) 
in  B04.  (This  global  display  is  in  B35  ..  B64.) 

6.  Save  the  B  and  T  registers  to  the  stack,  starting  at  B77/TOO 
and  ending  at  the  last  B/T  register  that  will  be  used  by  the 
subprogram  (for  parameter  lists  and  local  data).  This  is 
generally  B24  and  T17.  This  has  the  effect  of  saving  the  TNB 
pointer,  the  retxim  address,  the  static  link,  the  caller’s  FP,  the 
saved  global  display  point,  the  saved  A  and  S  registers,  and 
the  parameters  on  the  stack.  It  also  saves  any  further  B/T 
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registers  the  subprogram  will  use  for  parameter  lists  and 
local  data. 

7.  Compare  SP  to  the  stack  limit  (contained  in  B67).  If  the  limit 
is  exceeded,  rail  runtime  support  to  extend  the  stack  or  raise 
the  exception  STORAGE_ERROR  if  the  stack  cannot  be 
extended. 

8.  If  this  subprogram  has  children  that  might  reference  its  data 
up-level,  save  FP  in  global_display  (LL). 

9.  Save  the  new  FP  in  B02. 

10.  Save  B17  in  BOl.  BOl  will  now  contain  the  pointer  to  the 
parameter  overflow  block. 

11.  Copy  SP  into  B17.  This  is  where  parameters  for  routines  this 
routine  calls  will  be  put. 

On  exiting  from  the  called  subprogram  the  following  actions 
occur: 

1.  If  the  subprogram  is  a  function,  move  the  function  return 
value  into  SI. 

2.  Restore  BOO  through  B24,  TOO  through  T17.  This  has  the 
effect  of  restoring  the  subprogram!  linkage,  the  first  few 
parameters,  and  the  auxiliauy  registers  used  for  local  data 
adlocation. 

3.  If  the  subprogram’s  lexical  level  is  less  than  the  global 
display  size  amd  a  display  pointer  was  saved  on  entry  to  the 
subprogram,  the  restore  global_display  (LL)  from  B04. 

4.  Restore  the  saved  A  and  S  registers  from  the  newly  restored 
B  and  T  registers. 

5.  Restore  SP  from  FP. 

6.  Restore  FP  from  B02. 

7.  Jump  back  to  calling  subprogram  by  using  BOO. 

On  returning  to  the  calling  subprogram,  check  and  copy  any 
scalar  access  parameters  of  mode  out  and  of  mode  in  out 
back  into  the  appropriate  variables.  If  the  subprogram  called 
was  a  function,  then  use  the  result  from  Si. 
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Calling  sequence  for  On  CRAY-2  S3rsteins,  the  stack  frame  layout  for  a  subprogram 

CRAy-2  systems  immediately  after  completion  of  its  entry  sequence  is  as  shown 

5.9.2  in  Figure  2. 


; 

Frame  pointer  (FP)  — ♦ 

#args/line#/entTy  point  address 

Save  area  for  previous  frame 
package  for  this  procedure 
(€3  words) 

Local  variables 

Stack  pointer  (SP)  — • 

• 

Low  addresses 


addresses 


Figure  2.  Subprogram  stack  frame  layout  on  CRAY-2  system 
after  completion  of  entry  sequence 
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The  following  lists  show  the  basic  actions  performed  for 

subprogram  call,  entry,  exit,  and  return  on  CRAY-2  systems 

witW  the  calling  subprogram: 

1.  Load  each  parameter  into  local  memory  starting  at  $LM0  0 + 8. 

2.  Load  SO  with  the  entry  point  of  the  destination  subprogram, 
copy  SO  to  AO,  and  perform  a  return  jump  by  using  AO  (RAO 
AO).  If  an  elaboration  check  is  required,  then  check  the 
elaboration  Boolean  and  raise  EliABORATION_ERROR  if  the 
called  routine  is  not  elaborated. 

On  entry  to  the  called  subprogram,  the  following  actions  occ;ir: 

1.  Set  FP  to  SP  (new  firame  base  is  set  to  current  top  of  stack). 

2.  Save  AO,  SO  and  A1  ..A6,  SI ..  S7  in  $LMADA. 

3.  Allocate  the  new  h'ame  by  setting  SP  to  FP  +  fraine_si2e. 

4.  Compare  SP  to  the  stack  limit  (contained  in  $LM00+1).  If  the 
limit  is  exceeded,  call  runtime  support  to  either  extend  the 
stack  or  raise  the  exception  STORAGE_ERiiOR  if  the  stack 
cannot  be  extended. 

5.  Set  $LM00  to  point  to  this  frame  package  ($FPK). 

6.  If  this  is  a  recursive  call  to  a  subprogram  that  is  already 
active  in  the  current  call  chain,  save  SO  and  the  current 
contents  of  the  subprogram  frame  package  in  the  stack 
starting  at  FP-1. 

7.  If  this  is  not  a  recursive  call,  save  SO  (#args/ line# /entry 
point)  in  the  stack  at  FP-1. 

8.  Store  return  address,  FP,  and  address  of  caller’s  frame 
package  in  the  frame  package.  If  this  is  a  remrsive  call  (that 
is,  if  you  just  saved  the  frame  package  in  the  stack  frame), 
also  store  the  frame  base  of  the  owner  of  the  saved  frame 
package  in  the  frame  package. 

9.  Save  caller’s  A’s  and  S’s  in  the  frame  package.  They  are 
currently  in  $LMADA. 

10.  If  necessary,  store  previous  global  display  pointer  for  this 
lex-level  in  $FPK+4,  and  overwrite  it  with  the  value  in  A7. 

11.  Zero  the  mark  set  pointer  at  $FPK+ 3. 
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12.  Move  parameters  firom  $LM00-t-8  to  frame  package  or  stack 
frame,  depending  on  whether  any  of  them  need  to  be  in 
common  memory. 

13.  Save  the  address  of  the  subprogram’s  frame  package  in 
$FPK+2. 

On  exiting  from  the  called  subprogram  the  following  actions 

occur 

1.  If  this  is  a  function  then  move  the  function  return  value  into 
SI. 

2.  Restore  the  return  address  into  AO  from  the  frame  package. 

3.  Store  the  address  of  the  caller’s  frame  package  in  $LM00+0. 

4.  If  necessary,  restore  previous  global  display  from  $FPK+4. 

5.  If  there  were  any  OUT  or  IN  OUT  parameters,  copy  them 
from  either  the  stack  or  the  frame  package  back  to  $LM00-^8. 

6.  Restore  caller’s  A  and  S  registers  from  my  frame  package. 

7.  If  this  was  a  recursive  routine  (in  other  words,  there  is  a 
frame  package  saved  in  the  stack  frame)  then  restore  the 
frame  package  from  the  stack.  If  this  was  not  a  recursive 
routine,  mark  the  frame  package  as  inactive  by  zeroing  the 
top  half  of  the  first  word  of  the  frame  package  (the  pointer  to 
the  previous  owner  of  the  firame  package). 

8.  Restore  SP  fi^m  FP. 

9.  Jump  back  to  calling  subprogram  by  using  AO. 

On  return  to  the  calling  subprogram,  the  following  actions  occur: 

1.  Restore  FP  finm  $FPK+2.  ('This  is  done  here,  rather  than  in 
the  exit  sequence,  because  if  there  was  a  stack  overflow  in 
the  called  subprogram,  the  stack  segment  release  performed 
as  part  of  the  return  will  destroy  the  contents  of  FP.) 

2.  Check  and  copy  any  scalar  and  access  parameters  of  mode 
out  and  in  out  from  local  memory  back  in  to  the 
appropriate  variables.  If  the  subprogram  called  was  a 
function,  use  the  result  finm  SI. 
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Parameter  passing  in 
Ada 

5.9.3 


This  subsection  discusses  parameter  passing  in  Ada,  common  to 
CRAY  Y-MP,  CRAY  X-MP  and  CRAY-2  systems. 

Parameters  in  Ada  are  passed  either  by  value  or  by  address, 
depending  on  the  data  t3Tpe  of  the  parameter.  For  parameters  of 
array  and  record  types,  the  address  of  the  actual  parameter  is 
passed.  Parameters  of  scalar  and  access  types  are  passed  by 
value  (even  for  parameters  of  modes  out  and  in  out).  In  the 
case  of  scalar  and  access  parameters  of  modes  out  and  in  out, 
the  called  routme  must  store  the  output  values  for  such 
parameters  back  in  the  same  locations  used  to  pass  them  (either 
in  B  and  T  registers,  the  stack,  or  in  the  $LM00  area)  so  that  the 
calling  routine  can  retrieve  these  values  on  return.  The  storage 
order  of  parameters  corresponds  to  the  order  of  formal 
parameter  declarations  in  the  Ada  subprogram  declaration.  For 
CRAY  X-MP  systems,  parameters  passed  by  address  or  access 
types  passed  by  value  are  passed  in  B  registers,  starting  with 
B13.  All  other  parameters  are  passed  in  T  registers,  starting 
with  T07. 

For  calls  to  subroutines  in  other  languages,  the  calling 
conventions  of  the  target  language  are  obeyed.  (See  “Interfacing 
to  Other  Languages,”  page  133,  for  more  information  on 
cross-language  calls  and  restrictions  on  parameter  passing.) 

For  CRAY  Y-MP  and  CRAY  X-MP  systems,  the  first  four 
parameters  that  are  passed  by  address  or  are  access  types  are 
passed  in  B  registers,  starting  with  B13.  The  rest  are  passed  on 
the  stack,  indexed  at  negative  ofikets  from  B17.  The  first  four 
scalar  parameters  are  passed  in  T  registers,  starting  with  T07. 
The  rest  are  passed  on  the  stack,  indexed  at  negative  offsets 
fi’om  B17.  For  CRAY-2  systems,  all  parameters  are  passed  in 
local  memory,  starting  at  $LMOO-t-8. 
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Cray  Ada  supports  a  set  of  library  interface  ’’outines  which 
provide  support  directly  from  Cray  Ada  to  basic  math  and  utility 
routines.  These  routines  a-^e  available  in  the  following  two 
packages: 

•  CRAY_LIB 

•  SYSTEM_INFO 


Package  CRAY_LIB  The  routines  provided  in  CRAY_LIB  provide  transparent  efficient 

6.1  interfaces  to  logarithmic,  trigonometric,  bit  manipulation  and 

various  utility  routines.  The  compiler  has  special  knowledge  of 
these  routines  thereby  allowing  for  vectorization  of  these 
routines  to  occur  within  Cray  Ada  code.  CRAY_LIB  contains 
three  generic  packages  which  are  MATH_LIB,  BIT_LIB,  and 
UTIL_LIB  with  pre-instantiations  as  follows: 


PACKAGE  Cray_Math_Lib  IS  NEW  Cray_Lib. Math_Lib (Float ,  Integer); 
PACKAGE  Cray_Bit_Lib  IS  NEW  Cray_Lib.Bit_Lib(Integer); 

PACKAGE  Cray  _Ut  il_Lib  IS  NEW  Cray  _Lib.Util_Lib  (Float ,  Integer); 


The  specification  for  the  package  CRAY_LIB  is  found  beginning 
in  the  following  disaission. 
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The  routines  in  the  CRAY_LIB  package  are  actually  interfaces  to 
existing  Cray  library  routines  written  in  Cray  Assembly 
language  and  Fortran.  Additional  details  on  these  routines  can 
be  fovind  in  Volume  3:  UNICOS  Math  and  Scientific  Library 
Reference  Manual,  pubUcation  SM-2081.  By  default,  the  only 
eiTors  that  are  trapped  in  these  routines  are  UNICOS 
float  ing_point  (SIGFPE)  signals.  These  are  mapped  to 
numeric_error.  If  you  wish  to  trap  any  other  signals  while 
doing  processing  in  the  library  routines,  you  mvist  use  the 
UNICOS_SlGNAL_Support  package  and  specify  the  signals  you 
want  to  handle. 

The  following  is  the  specification  for  the  CRAY_LIB  package; 
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PACKAGE  Cray_Lib  IS 


GENERIC 


TYPE  Fit  IS  DIGITS  <>; 
TYPE  Int  IS  RANGE  <> ; 

PACKAGE  Math_Lib  IS 


FUNCTION 

FUNCTION 

FUNCTION 


****(Val  :  IN 
Power  : 
***'(Val  ;  IN 
Power  ; 
•***(Val  :  IN 
Power  : 


Int; 

IN  Int) 
Fit; 

IN  Int) 
Fit; 

IN  Fit) 


RETURN  Int; 
RETURN  Fit; 
RETURN  Fit; 


FUNCTION  Sqrt(Val  ;  IN  Fit)  RETURN  Fit; 


FUNCTION  Log(Val  : 
FUNCTION  LoglOfVal 
FUNCTION  Exp(Val  : 


IN  Fit)  RETURN  Fit; 

:  IN  Fit)  RETURN  Fit; 
IN  Fit)  RETURN  Fit; 


FUNCTION  Cos(Val 
FUNCTION  Sin{Val 
FUNCTION  Tan(Val 
FXnJCTION  Cot(Val 


IN  Fit)  RETURN  Fit 
IN  Fit)  RETURN  Fit 
IN  Fit)  RETURN  Fit 
IN  Fit)  RETURN  Fit 


FUNCTION  Acos(Val  :  IN  Fit)  RETURN  Fit; 
FUNCTION  Asin(Val  :  IN  Fit)  RETURN  Fit; 
FUNCTION  Atan(Val  :  IN  Fit)  RETURN  Fit; 
FUNCTION  Atan2(Val  :  IN  Fit; 

Val2  :  IN  Fit)  RETURN  Fit; 


FUNCTION 

Cosh(Val 

:  IN 

Fit) 

RETURN 

Fit; 

FUNCTION 

Sinh(Val 

:  IN 

Fit) 

RETURN 

Fit; 

FUNCTION 

Tanh(Val 

:  IN 

Fit) 

RETURN 

Fit; 

PRIVATE 


END  Math_Lib; 


(continued) 
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GENERIC 


TYPE  Int  IS  RANGE  <>; 

PACKAGE  Bit_Lib  IS 

SUBTYPE  Word_Range  IS  Natural  RANGE  0  ..  63; 
SUBTYPE  Word  IS  Integer; 

FXmCTION  Leadzdtem  :  IN  Word)  RETURN  Int  ; 
FUNCTION  Popcntdtem  :  IN  Word)  RETURN  Int; 
FUNCTION  Mas)cl(Val  :  IN  Int)  RETURN  Word; 
FUNCTION  Maskr(Val  :  IN  Int)  RETURN  Word; 
FUNCTION  Shiftldtem  :  IN  Word; 

Val  :  IN  Int)  RETURN  Word; 
FUNCTION  Shiftrdtem  :  IN  Word; 

Val  :  IN  Int)  RETURN  Word; 

PRIVATE 


end  Bit_Lib; 

(continued) 
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GENERIC 

TYPE  Fic  IS  DIGITS  <>; 

TYPE  Int  IS  RANGE  <>; 

PACKAGE  UCil_l,ib  IS 

TYPE  RTC_range  IS  RANGE  0  ..  3S_184_372_088 

_831 ; 

--  0  to  2**45-l  . 

—  RTC_F1 oat_Range  is  from  0  to  2**64-l. 
TYPE  RTC_Float_Range  IS  DIGITS  10  RANGE  0.0 

.  . 18_446_744_073_709_551_6I5 . 0; 

--  type  of  a  real-time  clock  starting  time 
--  and  RTC_Timer_Elapsed ) 

TYPE  P,TC_Vaiue  IS  LIMITED  PRIVATE; 

(for  RTC_Timer_Start 

--  type  returned  by'  Ranget  and  accepted  by 

Ranset 

TYPE  Seed  IS  LIMITED  PRIVATE; 

--  Floating  point 

FUNCTION  Ranf  RETURN  Fit; 

FUNCTION  £ign(  Vail:  IN  Fit; 

Val2:  IN  Fit)  RETURN  Fit; 

--  integer 

--  get  a  random  seed 

FUNCTION  Ranget  RETURN  Seed; 

--  set  the  random  number  generator's  seed 

(continued) 
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PROCEDURE  Ransec  ;Val:  IN  Seed); 


--  convert  an  Int  to  a  Seed 

FUNCTION  Int_To_Seed( I ;  IN  Int)  RETURN  Seed; 


--  Che  'IMAGE  and  'VALUE  of  a  random  number  generator  seed 

FUNCTION  Seed_Image (S :  IN  Seed)  RETURN  String; 

FUNCTION  Seed_Value (S_Image :  IN  String)  RETURN  Seed; 

FUNCTION  Sign(Vai:  :  IN  Int; 

VaI2  ;  IN  INT)  RETURN  Int; 

FUNCTION  Trane  iVail  :  IN  Fit)  RETURN  Int; 


--real-time  cloctc  elapsed  time  routines  which  avoid  problems  with 
--integer  overflow;  the  RTC_Timer_Elapsed  function  enforces  a  limit 
--of  Int'LAST  on  its  return  value,  and  raises  Constraint_Error  if 
--the  result  is  too  big  (with  type  Integer,  this  is  sufficient  for 
--(((2**45)  -1)  /  (1000000000  /  CT) )  /  3600  hours,  which  is  about 
— 1.6  days  or.  a  4  ns  CRAY-2  and  2.5  days  on  a  6  ns  CRAY  Y-MP) 

PROCEDURE  RTC_Timer_Start (RTC_Start_Time:  OUT  RTC_Value) ; 

FITICTION  RTC_Timer_Elapsed(RTC_Start_Time:  IN  RTC_Value)  RETURN  Int; 

--  Version  1  -  The  legal  range  of  this  version  is  46  bits,  however 

this  value  may  be  exceeded  within  2  to  3  days  depending 
on  the  system.  This  routine  actually  returns  a  64  bit 
value.  In  order  to  ma)ce  use  of  this  value  checits  must  be 
turned  off . 

FUNCTION  RTC  RETURN  RTC_FloaC_Range ; 

--  Version  2  -  Return  RTC  as  a  floating  point  value. 

This  IS  an  actual  Ada  routine,  not  an  external  one. 
FUNCTION  RTC  RETURN  RTC_Range; 
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—  Version  3  -  Return  clock  ticks  as  a  microsecond  value  in  integer. 

This  is  an  actual  Ada  routine,  not  an  external  one. 

FUNCTION  Cpu_Usec  RETURN  Int; 

PRIVATE 

END  Util_Lib; 

END  Cray_Lib; 

CRAY_LIB  contains  several  internal  routines  beginning  with  the 
alphanumeric  Q8.  It  is  best  to  avoid  routines  beginning  with 
these  values. 


SR-3082  2.0 


Cray  Research,  Inc. 


125 


Library  Interfaces 


Cray  Ada  Environment,  Volume  2:  Programming  Guide 


Table  7  summarizes  the  CRAy_LIB  functions  available  with  Cray 
Ada  2.0.  The  following  lists  define  the  conventions  tised  in 
Thble  7. 

The  level  of  vectorization  is  as  follows: 

F  Full  vectorization 

N  No  vectorization 

The  type  of  code  generated  is  as  follows: 

E  External 

I  Inline 

L  Language  supported 

In  the  Definition  column,  y  is  the  function’s  result  and  the  x 
values  are  function  argtiments.  The  following  example  shows 
this: 


A  :=  SQRT(B)  K  :=  ATAN2(X,y) 

Square  brackets  indicate  the  truncation  of  a  term.  If  x  has  a 
vaJue  of  5.67,  [x]  equals  5. 

Data  types  shown  in  the  Function  and  Arguments  columns  zu-e 
the  following; 

I  Integer 

F  Float 
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Table  7. 

,  CRAY. 

LIB  function  summary 

Purpose 

Definition 

Function 

Name  Type 

No 

Arguments 

Type  Range 

Codes 

Natural 

logarithm 

y=ln(x) 

log 

F 

1 

F 

0<x<infinity 

F  E 

Common 

logarithm 

y=log(x) 

loglO 

F 

1 

F 

0<x<infinity 

F  E 

Square 

root 

y=sqrt(x) 

sqrt 

F 

1 

I.F 

0<=x<=infinity 

F  E 

Exponent 

y=exp(x) 

exp 

F 

1 

I.F 

Ixl  <2^3  in2 

F  E 

Sine 

y=sin(x) 

sin 

F 

1 

F 

1x1  <2^* 

F  E 

Cosine 

y=cos{x) 

cos 

F 

1 

F 

Ixl  <2^* 

F  E 

Tangent 

y=tan(x) 

tan 

F 

1 

F 

Ixl  <224 

F  E 

Cotangent 

y=cot(x) 

cot 

F 

1 

F 

Ixl  <224 

F  E 

Arccosine 

y=arccos(x) 

acos 

F 

1 

F 

Ixl  <=  1 

F  E 

Arcsine 

y=arcsin(x) 

asin 

F 

1 

F 

Ixl  <=  1 

F  E 

Arctangent 

y=arctan(x) 

atan 

F 

1 

F 

1 X 1  <  infinity 

F  E 

y=arctan(xl,x2) 

atan2 

F 

2 

F 

1  xl  1  <  infinity 
1x21  /=0 

F  E 

Hyperbolic 

cosine 

y=cosh(x) 

cosh 

F 

1 

F 

Ixl  <2^3  ]^2 

F  E 

Hyperbolic 

sine 

y=sinh(x) 

sinh 

F 

1 

F 

Ixl  <2  ln2 

F  E 

Hyperbolic 

tangent 

y=tanh(x) 

tanh 

F 

1 

F 

1 X 1  <  2  ln2 

F  E 

Truncation 

y=[x] 

No  rounding 

trunc 

I 

1 

F 

Ixl  <246 

F  I 

Transfer 

sign 

ifx2>=0 
y:=  xl^>=0 
y;=  -xl,  x2<  0 

sign 

F 

1 

F 

1 X 1  <  infinity 

F  I 

Leading 
zero  count  § 

Counts  number 
of  leading  0  bits. 

leadz 

I 

1 

I 

F  I 

Population 

count 

Coimts  number 
of  bits  set  to  1. 

popcnt 

I 

1 

I 

F  I 

§  leadz  vectorizes  on  CRAY-2  systems. 
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Table  7.  CRAY_LIB  function  summary 
(continued) 


Fhirpose 

Defiuition 

Function 

Arguments 

Codes 

Name 

Type 

No 

Type 

Range 

Shift  left 

Shift  xl  left  x2 

positions; 

leftmost 

positions  lost; 

rightmost 

positions  set  to 

zero. 

shif tl 

I 

2 

I 

0<=  x2  <64 

F  I 

Shift  right 

Shift  xl  right  x2 

positions; 

rightmost 

positions  lost; 

leftmost 

positions  set  to 

zero. 

shif tr 

I 

2 

I 

0  <=  x2  <64 

F  I 

Mask  left 

Left-justified 
mask  of  x  bits. 

maskl 

I 

1 

I 

F  I 

Mask  right 

Right-justified 
mask  of  x  bits. 

maskr 

I 

1 

I 

F  I 

Exponentiation  § 

y=xl*2 

xl  is  raised  to 
the  x2  power. 

«  « 

I.F 

2 

I.F 

F  E 

Random  number 
generator  §§ 

y  ;=  r  in  which  r 
is  the  first  or 
next  in  a  series 
of  random 
numbers 
(0.0  <y  <1.0). 

ranf 

F 

0 

F  E 

Get  random  seed 

Gets  the  current 
random  number 
seed. 

ranget 

I 

0 

I 

1 X 1  <  infinity 

N  E 

Set  random 
seed  §§§ 

Sets  the  current 
random  number 
seed. 

ranset 

I 

1 

I 

1 X 1  <  infinity 

N  E 

§  Exponentiations  where  xl  is  an  integer  and  x2  is  a  float  will  not  vectorize 

§§  If  ranf  is  called  more  than  once  in  a  vectorized  loop  it  may  produce  random  results  in  a  different 
order  than  scalar  mode. 

§§§  See  Volume  3:  UNICOS  Math  and  Scientific  Library  Reference  Manual,  publication  SR-2081,  for 
details. 
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Table  7. 

CRAy_LIB  fiinction 
(continued) 

summary 

Purpose 

Definition 

Function 

Name  Type 

No 

Arguments 

Type  Range 

Codes 

Elapsed  real 

Determine  the 

RTC_Timer_Start 

1 

I 

NL 

time 

elapsed  real  time 
between  two 
events. 

RTC_Timer_EIapsed 

I 

1 

I 

NL 

Elapsed  real 

Determine  the 

RTC_Timer_Start 

1 

I 

NL 

time 

elapsed  real  time 
between  two 
events. 

RTC_Timer_Eiapsed 

I 

1 

I 

NL 

Real-time  clock 

Returns  the 
real-time  clock 
value  in  a  46-bit 
integer  or  as  a 
floating-point 
value. 

rtc  I,F 

0 

N  L 

Clock  ticks 

Clock  ticks  in 
microseconds  as 
an  integer  value. 

cpu_usec  I 

0 

N  L 
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The  following  is  an  example  showing  how  to  reference  CRAY_LIB 
from  an  Ada  program. 

WITH  Cray_Lib; 

PROCEDURE  Use_Cray_Lib  IS 

—  instantiate  each  package  whose  routines  will  be  used 

PACKAGE  Math_Lib  IS  NEW  Cray _Lib .Math_Lib ( Float ,  Integer); 

PACKAGE  Bit_Lib  IS  NEW  Cr ay _Lib.Bit_Lib (Integer ) ; 

PACKAGE  Util_Lib  IS  NEW  Cray _Lib .Util_Lib (Float ,  Integer); 

FUNCTION  '***  (Value:  IN  Float;  Power:  IN  Integer) 

RETURN  Float  RENAMES  Math_Lib . ' *  * ' ; 

FUNCTION  Popcnt  (Value:  IN  Bit_Lib. Word) 

RETURN  Integer  RENAMES  Bit_Lib . Popcnt ; 

FUNCTION  Ranf  RETURN  Float  RENAMES  Util_Lib.Ranf ; 

FUNCTION  Int_To _ Seed  (Value:  IN  Integer) 

RETURN  Util_Lib.Seed 
RENAMES  Util_Lib.Int_To_Seed; 

PROCEDURE  Ranset  (Value:  IN  Util_Lib. Seed) 

RENAMES  Ut i l_Lib . Ranset ; 

A:  Float; 

BEGIN 

Ranset  ( Int_To_Seed ( 12345 )) ; 

A  : =  Ranf ; 

FOR  I  IN  1  . .  4  LOOP 

A  :=  (A  **  I)  +  Float (Popcnt (I) ) ; 

END  LOOP; 

END  Use_Cray_Lib; 
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The  System_lnfo  package  may  be  tised  to  identify  which 
compiler  was  used  to  compile  a  program.  The  package  interface 
is  the  following: 

Package  Systein_Inf o  is 

Conipiler_Version_Reference_Nuinber :  Constant  :=  2.0; 

Compiler_Version  :  Constant  String  :=  *2.0*; 

end  System_Info: 


An  example  showing  use  of  the  package  interface  is  the 
following: 


Systein_Inf  o 
package 

6.2 
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Interfacing  to  Other  Languages  [7] 


The  Cray  Ada  Environment  supports  interfaces  to  other 
languages,  as  discussed  in  subsection  13.9  Interface  to  other 
languages  of  the  Reference  Manual  for  the  Ada  Programming 
Language  (LRM).  This  means  that  routines  written  in  Fortran, 
C,  Pascal,  and  CAL  can  be  called  directly  from  Ada  if  they  meet 
the  following  restrictions; 

•  Pragma  INTERPACE  can  be  applied  only  to  subprograms  for 
which  use's  could  have  provided  bodies.  Examples  of  invalid 
pragma  IN  'ERFACE  subprograms/names  include  names  used 
as  enumeration  Hterals,  attribute  names,  predefined 
operators,  derived  subprograms,  and  package  bodies. 

•  In  the  case  of  overloaded  subprogram  names,  pragma 
INTERPACE  is  allowed  to  stand  for  several  subprograms. 
However,  only  subprograms  declared  earlier  in  the  same 
declarative  part  or  package  specification  are  satisfied. 

•  If  pragma  INTERFACE  is  accepted  and  is  applied  to  certain 
subprograms,  it  is  invahd  to  provide  a  body  for  any  of  those 
subprograms,  whether  the  pragma  appears  before  or  after  the 
body. 

•  If  the  subprogram  specified  in  pragma  INTERFACE  was 
declared  by  a  renaming  declaration,  the  pragma  apphes  to  the 
denoted  subprogram,  but  only  if  the  denoted  subprogram 
otherwise  satisfies  the  requirements. 

•  Nesting  of  pragma  INTERFACE  calls  is  supported.  The  level  of 
nesting  is  limited  only  by  available  memorj-. 

As  noted  in  the  LRM,  all  communication  between  foreign 
languajye  routines  and  the  Ada  program  must  be  achieved  by  the 
use  of  parameters  and  function  results,  and  the  subprograms 
must  be  as  follows: 

•  Described  by  an  Ada  subprogram  sp'^cification  in  the  calling 
program 

•  Specified  with  an  appropriate  pragma  INTERFACE  directive  in 
the  calling  program 
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In  addition,  the  routines  must  be  assembled  or  compiled  by  a 
language  processor  having  data  representation,  calUng,  and 
runtime  conventions  that  are  compatible  with  the  forms 
supported  by  the  Cray  Ada  Environment,  and  whose  object-file 
format  is  compatible  with  the  UNICOS  linker. 

Users  must  ensiu^  that  any  foreign  object  modules  linked  with 
Ada  routines  follow  the  same  restrictions  for  addressing  and 
code  generation  as  those  used  in  compiling  the  Ada  modules. 
Cray  Ada  supports  neither  a  mechanism  for  CPU  targeting  nor 
the  UNICOS  target  command. 

Currently,  access  to  the  following  Cray  Research  system 
languages  is  supported  fi'om  Cray  Ada  (see  Table  8): 


Thble  8.  Languages  with  interfaces  supported  in  Ada 


Language/interface 

Language  name 

CF77,  CFT 

Fortran 

C,  UNICOS 

C 

CAL 

Cray  Assembly  Language 

Pascal 

Pascal 

No  industry-wide  standards  exist  for  interlanguage 
programming  The  conventions  described  in  this  mamual  apply 
only  to  software  running  on  Cray  Reseairch  systems.  You  can 
find  descriptions  of  these  conventions  in  Interlanguage 
Programming  Conventions,  publication  SN-3009. 

Ada  also  supports  callback.  A  foreign  routine  can  call  an  Ada 
routine  by  using  the  pragma  EXPORT.  In  this  case,  the  main 
program  must  be  Ada.  An  additional  restriction  is  that  the 
ftireign  language  caller  must  not  include  I  'ul titasking.  See 
“Calling  Ada  firom  foreign  languages,”  page  160. 

See  “Exception  handling  firom  foreign  languEiges,”  page  106. 
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Data  types 

7.1 


Caut’ons 

7.2 


All  the  data  structures  defined  within  any  one  of  the  languages 
Listed  in  the  Cray  Ada  Environment,  Volume  1:  Reference 
Manual,  publication  SR-3014,  cannot  necessarily  be  defined  in 
the  other  languages.  Some  restrictions  result  fi-om  intrinsic 
characteristics  of  the  languages  and  some  result  fi’om  the 
particular  implementations.  The  rules  that  follow  sire  for  data 
mappings  on  Cray  Research  computer  systems  and  do  not 
necessarily  apply  to  other  vendors’  implementations. 

The  only  data  types  having  values  that  can  be  shared  directly  by 
all  languages  previously  listed  are  as  follows: 

•  64-bit  integer 

•  Single-precision  floating  point 

•  One-dimensional  arrays  of  64-bit  integers 

•  One-dimensional  arrays  of  single-precision  floating  point 

Data  t5rpes  that  can  be  shared  between  these  languages,  but  only 
wdth  some  special  processing,  are  as  follows: 

•  Character  strings 

•  Boolean  (logical)  values 

•  Multidimensional  arrays  of  64-bit  integer,  single-precision 
floating  point,  and  Boolean  values 

•  Word  pointers  to  values  of  64-bit  integer,  single-precision 
floating  point,  or  logical  values,  or  to  arrays  of  those  types  of 
values 


Remember  the  following  cautions  when  using  pragma 

INTERFACE: 

•  Setting  yoxu-  own  error  conditions,  such  as  floating-point 
exceptions,  while  in  a  foreign  language  module  can  invalidate 
Ada.  If  this  is  done,  the  integrity  of  the  remaining  Ada 
execution  cannot  be  ensxired  as  correct  and  complete. 

•  Do  not  call  sbreak;  use  mall oc  instead.  The  use  of  sbreak 
may  cause  unpredictable  results. 
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Calling  and 

parameter-passing 

conventions 

7.3 


•  Currently,  only  one  language  at  a  time  should  perform  I/O.  If 
you  write  an  Ada  program  that  calls  a  C  routine  and  both  Ada 
and  C  modules  attempted  I/O,  the  result  from  Ada  may  be 
erroneotxs  I/O  or  no  I/O  at  all.  This  is  because  of  the  difference 
in  the  way  output  fide  identifiers  are  mapped  between  various 
languages. 

•  Pragma  interface  is  portable  only  on  Cray  Research 
systems. 

•  Only  scalars  and  access  types  can  be  returned  to  Ada  modvdes 
from  foreign  modxile  function  calls. 

•  Ada,  Fortran,  C,  and  Pascal  all  provide  ways  of  representing 
strings  of  characters,  but  the  semantics  of  these 
character-string  types  vary  a  great  deal  among  languages  and 
Cray  Research  systems.  Details  about  this  are  beyond  the 
scope  of  this  manual.  See  Interlanguage  Programming 
Conventions,  publication  SN-3009. 

•  Foreign  code  segments  may  be  debugged  only  at  the  machine 
level  if  you  use  adbg.  At  the  machine  level,  you  can  also  use 
CDBX. 


Two  different  calling  and  parEuneter-passing  conventions  are 
supported  by  the  Cray  Ada  Environment:  an  internal  format 
and  UNICOS  standard  format. 

The  C  and  UNICOS  format  is  specified  with  the  following 
statement: 

pragma  INTERFACE  (C,  subprogrcun_name) 

An  interface  using  the  name  “UNICOS”  is  not  supported.  The 
pragma  INTERFACE  to  C  is  intended  for  interfacing  to  code 
generated  by  C  language  compilers,  or  by  any  other  language 
compilers  that  follow  UNICOS  conventions.  It  is  discussed  in 
detail  in  Cray  Ada  Environment,  Volume  1:  Reference  Manual, 
publication  SR-3014. 

When  interfacing  to  either  Fortran  or  Pascal,  the  same  pragma 
interface  specification  is  defined  as  for  both  Cray  Assembly 
Language  and  C,  except  that  the  appropriate  language  identifier 
is  substituted.  Each  of  these  language  interfaces  is  discussed  in 
detail  later  in  this  section. 
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After  the  Ada  units  are  compiled  and  the  foreign  language  code 
is  compiled  and  assembled,  the  combined  code  must  be  bound 
and  linkpH  This  is  accompbshed  by  using  the  a  da  command 
with  the  -m  option  (see  Cray  Ada  Environment,  Volume  1: 
Reference  Manual,  publication  SR-3014)  or  by  using  the  aid 
command  (see  Cray  Ada  £nt;ironme/it.  Volume  1:  Reference 
Manual,  pubUcation  SR-3014). 


General 

interfacing 

considerations 

7.4 


The  Ada  name  of  the  designated  subprogram  is  referenced 
directly  as  a  global  symbol;  it  must  resolve  to  an  identical 
symbol  defined  at  link  time,  presumably  by  the  foreign  language 
routine  to  be  called.  One  implication  of  this  fact  is  that  the  name 
of  the  foreign  routine  must  conform  to  Ada  identifier  rules  (such 
as  starting  with  a  letter,  containing  only  letters,  digits,  or 
underscore  characters,  and  so  forth).  Another  is  that  pragma 
INTERFACE  Cannot  be  used  for  ove  rloaded  subprograms. 

These  name  restrictions  may  be  circumvented  by  using  one  of 
the  Cray  Ada  Environment  implementation-defined  pragmas; 
LINKNAME  or  INTERFACE_INFORMATION. 

Either  pragma  must  be  specified  immediately  following  an 
INTERFACE  pragma.  These  pragmas  cannot  apply  to  multiple 
overloaded  subprograms  (unlike  pragma  INTERFACE). 


Note 

Pragmas  LINKNAME  and  INTERFACE_INFORMATION  are 
supported  in  Cray  Ada  2.0.  Pragma  INTERFACE_INF0RMATI0N 
provides  all  of  the  functionahty  of  LINKNAME  and  adds  some 
functions.  LINKNAME  is  being  retained  for  purposes  of  upward 
compatibility.  When  Cray  Ada  3.0  is  released,  however,  Cray 
Research  will  no  longer  support  pragma  LINKNAME. 

Using  both  pragma  INTERFACE_INFORMATION  and  LINKNAME 
against  the  same  pragma  INTERFACE  call  is  illegal,  because  both 
are  required  to  follow  the  pragma  INTERFACE  call  immediately. 
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Pragma  INTERFACE_INF0RMATI0N  takes  three  arguments.  The 
first  argument  is  a  subprogram  name  that  has  been  previously 
specified  in  pragma  INTERFACE .  The  second  is  a  string  literal 
specifying  the  exact  link  name  to  be  employed  by  the  code 
generator  in  emitting  calls  to  the  associated  subprogram.  The 
third  specifies  the  mechanism  by  which  the  routine  will  be 
called. 

If  pragma  INTERFACE_lNFORMATlONis  used,  it  must 
immediately  follow  pragma  INTERFACE  for  the  associated 
subprogram;  otherwise  a  warning  is  issued,  indicating  that 
pragma  INTERFACE_INF0RMATI0N  has  no  effect. 

Linking  many  foreign  object  modules  by  using  the  aid  command 
may  become  ctimbersome.  The  user  of  a  SEGLDR  directives  file 
may  simplify  the  procedure.  See  Cray  Ada  Environment,  Volume 
1:  Reference  Manual,  publication  SR-3014,  for  more  information 
about  linking  foreign  object  modules. 


Pragma 

INTERFACE_ INFORMATION 

7.4.1 
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The  syntax  of  pragma  INTERFACE_INF0RMATI0N  is  as  follows; 


pragma  INTERFACE. 

.INFORMATION  ( 

Name  =>  subprogram _name , 

[ 

[Link_Name  => 

string  Jiteral ,  ] 

[ 

[Mechanism  =>! 

'PROTECTED'  1  'UNPROTECTED' 

]; 

s  ubpr  ogr  ain_name 

You  must  specify  a  subprogram  jiame.  AU  other 
argximents  are  optional. 

Link_Name=>  string Jiteral 

Provides  the  link  name  to  be  used  in  generating  calls 
to  the  subprogram.  In  the  absence  of  this  argument, 
the  lowercase  form  of  the  subprogram’s  Ada  name  is 
used  for  the  linkage.  This  argument  supplants  the 
functionality  provided  by  the  LINKNAME  pragma. 

[Mechanism  =>]  'PROTECTED'  I  'UNPROTECTED' 

Specifies  whether  calls  to  the  given  subprogram  are 
protected  against  exceptions  caused  by  the  foreign 
interface  routine.  The  default  for  this  argument  is 
'PROTECTED'.  In  certain  cases,  the  code  generator 
must  generate  extra  code  to  protect  the  runtime 
support  firom  being  confused  because  of  the  lack  of 
standard  trace  name  blocks  (TNBs)  in  foreign  code 
(particularly  for  calls  to  assembly). 

An  example  of  the  use  of  pragma  INTERFACE_INF0RMATI0N  is 
as  follows; 


procedure  Do_Something ( Addr :  System. address ;  Len  :  Integer); 
Pragma  INTERFACE  (C,  Do_Something) ; 

Pragma  INTEF.FACE_INFORMATICN  (Name  =>  Do_Something, 

Link_Name  =>  'CHANGE', 
Mechanism  =>  'UNPROTECTED'); 
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Prcigma  LINKNAME  The  syntax  of  pragma  LINKNAME  is  as  follows: 

7.4.2  _ 

pragma  LINKNAME  i  subprog jiame ,  string  Jit)  ; 


The  following  is  an  example  of  pragma  LINKNAME: 


procedure  Duminy_Access  (  Duirany_Arg  :  System. Address  ); 
pragma  INTERFACE  (assembly,  Dummy _Access  ); 
pragma  LINKNAME  { Dummy _Ac cess ,  '_access*); 


System  users  are  urged  to  use  pragma 
INTERFACE_INF0RMATI0N  instead  of  pragma  LINKNAME. 

Pragma  EXPORT  provides  a  means  by  which  foreign  code  can 
make  calls  to  Ada  programs,  provided  that  the  main  subprogram 
is  an  Ada  routine.  See  "Calling  Ada  from  foreign  languages,” 
page  160. 


Interlanguage  data 
access 

7.4.3 


It  is  not  possible  for  a  program  composed  of  only  Ada  elements  to 
declare  and  use  common  blocks.  To  use  common  blocks,  a 
program  must  be  composed  of  elements  written  in  languages 
other  than  Ada  as  well  as  elements  written  in  Ada. 

The  declaration  of  label  is  the  following: 

function  label  (Name: string)  return  Address; 

The  value  of  the  Ncime  parameter  is  the  following: 

*<linkjiame>, <linkage>  ,” 


A  new  function,  label,  in  a  package  System  has  been  added  to 
Cray  Ada.  label  provides  for  more  convenient  interlanguage 
access  to  data,  nsunely,  common  blocks.  This  mechanism 
provides  not  for  the  actual  declaration  of  common  blocks  but  for 
the  referencmg  of  them. 
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<linkage>  is  defined  as  one  of  the  following: 


External 


<linknaine>  is  the  name  of  a  normal 
external  variable. 


Common  The  <1  inknaine>  is  the  name  of  a  named 

Fortran  block.  If  <linkname>  is  empty, 
blank  common  is  referred  to. 

C-external  The  <1  inkname>  is  the  name  of  an 

external  C  variable.  This  is  actually  a 
synonjTn  for  the  <linkage>  common 
because  C  external  actually  references  the 
named  Fortran  blocks.  The  <linkage> 
name  is  the  name  of  the  common  block. 


For  further  information,  see  “Package  system,”  page  203. 


Pragma  interface  One  usage  of  pragma  INTERFACE  that  is  currently  supported  by 

for  assembly  Environment  is  to  call  assembly  language 

7  5  modules.  Its  syntax  is  as  follows: 


pragma  INTERFACE  (assembly,  Ada_subprogram_name) ; 


The  calling  conventions  for  the  call  to  the  assembly  language 
routine  zire  the  same  as  those  for  a  call  to  a 
F ortran-implemented  routine.  The  restrictions  for  an  interface 
to  F ortran  also  apply. 
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Pragma  interface 
for  C  and  UNICOS 

7.6 


The  Cray  Ada  Environment  supports  pragma  INTERFACE  to 
routines  written  in  C  and  other  languages  that  adhere  strictly  to 
C  interface  conventions.  Because  UNICOS  system  calls  are 
written  in  C,  this  pragma  works  as  an  interface  to  UNICOS.  Its 
syntax  is  as  follows: 


pragma  INTERFACE  (C,  Ada_subprogram_name) ; 


The  rules  for  naming  subprograms  are  the  same  as  those  for 
pragma  INTERFACE  to  assembly;  that  is,  the  name  of  the  C 
routine  being  specified  in  the  INTERFACE  pragma  must  be  a 
legal  Ada  identifier  (unless  pragma  INTERFACE_INF0RMATI0N 
is  used),  and  the  name  may  not  be  overloaded.  For  example, 
given  a  pragma  INTERFACE  statement  such  as  the  following: 

pragma  INTERFACE  (C,  Get_Argument ) ; 

If  the  earlier  version  of  C  were  used,  one  of  the  following  two 
pragma  Interf  ace_Information  statements  would  also  be 
required: 


pragma  Interface_Infonnation  (Name  =>  Get_Argument ,  'get$argument ) ;  —  X-MP 
pragma  Interf ace_Information  (Name  =>  Get_Argument ,  ' get ©argument ) ;  —  CRAY-2 


C  usage  considerations  The  following  subsections  include  C  underscore  changes,  C 

parameter  passing,  C  string  parameters,  and  C  special  global 
names. 


C  underscore  changes  Earlier  versions  of  the  Cray  Research  C  compiler  (those  prior  to 

7-6.1. 1  C  4.1)  translated  an character  to  either  a  '$’  character  (on 

CRAY  X-MP  systems)  or  an  character  (on  CRA5f-2  S3rstems).  If 
you  call  a  C  routine  that  is  compiled  using  an  older  version  of  the 
Cray  C  compiler,  you  must  have  a  pragma 
INTERFACE_INFORMATION  Statement. 


142 


Cray  Rasaarch,  Inc. 


SR-S082  2.0 


Cray  Ada  Environment.  Volume  2:  Programming  Guide 


Interfacing  to  Other  Languages 


C  parameter  passing 
7.6.1.2 


C  string  parameters 
7.6.1.3 


Because  the  C  programming  language  specifies  the  passing  of 
arguments  strictly  by  value,  only  in  arguments  may  reliably  be 
passed  to  C  functions.  Although  a  C  routine  may  legally  include 
an  assignment  to  a  formal  parameter,  it  is  not  guaranteed  that 
the  assignment  will  result  in  an  update  to  the  stack  copy  of  the 
parameter  on  exit  from  the  routine,  as  required  for  Adas’  model 
for  out  and  in  out  parameters,  lb  pass  values  back  to  the 
calling  program,  you  may  specify  that  the  value  is  ret\mied 
through  the  function  return  mechanism.  This  permits  the 
return  of  nona^egate  data  types.  If  you  want  to  return  objects 
of  other  types,  you  may  pass  pointers  to  the  objects  in  the  calling 
program  (such  as  arrays)  in  which  the  results  are  to  be  stored. 
The  called  routine  can  then  access  these  objects  through  the  C 
pointer  mechanism. 

The  use  of  pragma  INTERFACE  to  C  limits  the  types  of  data  that 
may  be  passed  to  a  C  subroutine.  The  types  currently  supported 
for  parameters  in  C  interface  routines  are  scalar  types  (integer, 
enumeration,  and  floating  point),  access  t3T)es,  and  type 
system,  address.  All  parameters  in  the  Ada  subprogram 
declaration  must  have  mode  in.  These  data  t3T)e  restrictions  on 
parameters  also  apply  to  the  return  types  of  functions  that 
interface  to  C. 


Strings  in  C,  by  convention,  are  null-terminated,  and  they  are 
passed  by  the  address  of  the  first  element.  There  are  no  implicit 
index  values  or  lengths  associated  with  a  string,  and  it  is  up  to 
the  code  that  handles  the  string  to  test  for  the  null  character 
that  terminates  the  string.  Strings  in  Ada,  on  the  other  hand, 
carry  implicit  index  values  for  the  first  and  last  elements,  and 
they  are  not  n\ill-terminated. 

The  recommended  (and  most  efficient)  way  to  pass  strings 
between  Ada  and  C  routines  is  for  the  Ada  code  to  follow  the  C 
conventions  explicitly.  Tb  pass  a  string  to  a  C  routine,  the  Ada 
code  would  store  a  null  terminator  at  the  end  of  the  string  £uid 
pass  the  address  of  its  first  element.  A  C  function  ret\iming  a 
string  would  be  declared  as  an  Ada  function  i  etuming  a  value  of 
type  system,  address .  Only  string  values  that  start  on  word 
boundaries  should  be  passed  to  C.  It  is  safe  to  pass  string 
variables  and  string  literals  as  parameters,  but  not  arbitrary 
string  slices. 

A  specific  example  of  string  passing  is  provided  in 
“Command-line  argument  example,”  page  146. 
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C  special  global  names  The  following  global  names  have  been  declared  in  the  run-time 

7.6. 1.4  code  specifically  for  \ise  in  C  programs; 


extern  int  rtargc;  /•  Number  of  command  line  arguments*/ 

extern  char  **rtargv;  /*  Pointer  to  array  of  argument  strings*/ 

extern  char  **environ;  /*  Pointer  to  the  environment  variable  string*/ 


The  three  variables  are  used  in  the  same  way  as  are  the  main 
program  arguments  argc,  argv,  and  envp. 


C  usage  examples  This  subsection  provides  examples  that  explain  the  use  of 

7.6.2  pragma  INTERFACE  to  C.  Thble  9  shows  a  generalized  mapping 

of  Ada  to  C  data  types  and  the  method  used  for  passing  them. 
This  information  is  very  system-dependent,  is  neither  portable 
nor  standard  and  is  recommended  only  for  specialized 
applications  by  knowledgeable  users.  There  is  no  direct 
mapping  for  data  types  other  than  scalaure,  arrays  of  scalars,  and 
access  types.  It  is  recommended  that  you  contact  your  system 
support  staff  for  information  based  on  your  specific  Cray 
Research  system  and  language  environment. 


Ihble  9.  Summary  of  parameter  types  for  Ada  calling  C 


Parameters  sent  by  Ada 

Parameters  received  by  C 

Ada  function 

Type 

Passed  by 

Type 

Passed  by 

Results 

integer 

integer 

int /short /long 

value 

integer 

float 

float 

float 

value 

float 

array 

array (array ' FIRST) ' address 

array 

reference 

Illegal* 

access 

access 

pointer 

value 

access 

§  You  can  use  an  access  type  to  point  to  this  structure. 
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Calling  C  library  This  subsection  is  the  first  of  two  that  show  how  pragma 

routines  INTERFACE  to  C  may  be  used  in  Ada  applications.  In  this 

7.6.2. 1  subsection,  an  Ada  procedure,  Random_Nuinber,  is  provided  as 

an  example.  Random_Nuinber  generates  and  prints  a  random 
integer  based  on  a  user-entered  seed  value.  It  generates  this 
number  by  making  a  direct  call  to  C  library  functions  Srand  and 
Rand.  No  user-written  C  code  is  required,  and  users  are  not 
required  to  load  library  libc,  because  the  Ada  linker  (aid 
command)  does  this  by  default. 


Ada  procedure  Random_Nuinber 


with  Text_IO; 

procedure  Random_Nuinber  is 
—  I/O 

package  lio  is  new  Text_Io . Integer_Io  (Integer); 
Number  ;  Integer; 


—  Set  up  for  pragma 
function  Srand  (Seed 
pragma  Interface  (C, 
function  Rand  return 
pragma  Interface  (C, 


interface  to  Srand  and  Rand 
:  Integer)  return  Integer; 
Srand)  ; 

Integer; 

Rand) ; 


begin 

Text_Io.Put  ('Enter  seed  for  random  number  generator:  '); 
lio. Get  (Number); 

Text_Io .New_Line; 

Number  :=  Srand  (Number); 


Number  :=  rand; 

Text_Io.Put  ('Remdom  number  is  as  follows:  '); 
lio. Put  (Number); 

Text_Io .New_Line; 
end  Random_Number ; 


In  the  declarative  part  of  the  program,  the  specifications  for 
Rand  and  Srand  are  defined  in  the  usual  fashion.  The  pragmas 
immediately  follow  the  specifications.  For  information  on  the 
Ada  rules  for  preparing  pragma  INTERFACE  specifications,  see 
subsection  13.9  of  the  LRM. 
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Command-line  argument 

example 

7.6.2.2 


lb  make  the  Ada  procedure  Random_Number  executable,  compile 
and  link  the  file  random,  ada,  which  contains  the  main  program 
rcindom_number.  A  copy  of  random,  ada  is  in  the 
/usr/ lib/ada/examples  directory.  During  linking,  the  C 
library  is  searched  automatically  for  the  Srand  and  Rand 
routines. 

ada  -m  random_n umber  random . ada 


This  subsection  provides  another  example  of  the  use  of  pragma 
INTERFACE  to  C.  This  time,  an  Ada  procedure,  Show_Argument, 
calls  C  procedure  Get_Argument  to  return  command-line 
arguments.  The  C  procedure  uses  global  variables  r targe  and 
rtargv. 

The  text  of  the  calling  Ada  procedure  follows;  a  copy  of  the 
procedure  is  also  available  in  file  show_args  .  ada  in  the 
/usr/ lib/ada/examples  directory.  Note  the  use  of  C  pointer 
types  and  the  Ada  system,  address  type  to  give  the  C  routine 
access  to  the  string  object  that  is  to  contain  the  returned 
argument. 
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—  Ada  procedure  Show_Argviinent  — 

with  System; 
with  Text_Io; 

procedure  Show_Argument  is 

—  I/O 

package  lio  is  new  Text_Io , Integer_lo  (Integer); 

Position  :  Integer; 

Argument  :  String  (1  ..  1000); 

Arg_Len  :  Integer; 

—  Set  up  for  pragma  INTERFACE  to  Get_Argvunent 
function  Get_Argument  (Parameter_l  :  Integer; 

Parauneter_2  :  System. Address) 
return  Integer; 

pragma  Interface  (C,  Get_Argument) ; 
begin 

Texc_Io.Put  ('Enter  position  number  of  argiiment:  '); 
lio. Get  (Position); 

Arg_Len  :=  Get_Argument  (Position,  Argument (Argument 'FIRST) 'ADDRESS) ; 
Text_Io.Put_Line  ('Argument  is  as  follows;  '  &  Argument  (1  ..  Arg_Len)); 

end  Show_ Argument ; 
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The  following  is  the  text  of  the  C  routine  called  from  Ada 
procedure  Show_Argument; 


/* - */ 

/*  —  C  routine  get_argunient  —  */ 

/* - */ 


short  get_argument  (position,  arg_ptr) 

short  position;  /*  position  number  of  argument  to  be  returned  */ 
char  *arg_ptr;  /*  pointer  to  string  in  which  to  store  argument  */ 

{ 

extern  int  rtargc;  /*  number  of  command- line  arguments  */ 
extern  char  **rtargv;  /*  pointers  to  command- line  arguments  */ 

short  strndx;  /*  loop  counter/string  index  */ 
char  c;  /*  temporary  character  */ 

/*  check  argument  position  number*/ 
if  (position  >  rtargc  -  1)  return  (0); 

/*one  pass  for  every  character  in  the  parameter  */ 

/*  until  the  null  character  at  the  end  of  the  */ 

/*  parameter  is  found  */ 

for  (strndx  =  0  ;  c  =  rtargv [position]  (strndx]  ;  stmdx++) 
arg_ptr  [  stmdx]  =  c; 

return  (stmdx);  /*  return  the  length  of  the  string  */ 

} 


Ada  integer  types  have  46-bit  precision  and  are  passed  as  64-bit 
quantities.  Chosing  a  C  data  type  of  int,  short,  or  long 
depends  on  the  application.  A  short  integer  is  used  in  the 
preceding  example.  See  the  Cray  Standard  C  Programmer’s 
Reference  Manual,  publication  SR-2074,  or  the  Cray  C  Reference 
Manual,  publication  SR-2024,  for  information  about  C  integer 
types. 
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Accessing  C  global 

variables 

7.6.2.3 


The  steps  involved  in  making  the  Ada  procedure  executable  are 
as  follows: 

1.  Compile  the  C  routine.  To  do  this,  compile  Get_Argument 
with  the  native  C  compiler,  as  in  the  following  example: 

see  -e  get_arg-c 

In  this  example,  see  invokes  the  Cray  Standard  C  compiler, 
and  the  -e  option  tells  the  compiler  to  compile  the  source 
code  in  file  get_arg .  e  without  linking  it.  The  resulting 
object  code  is  stored  in  the  get_arg .  o  file.  Remember  to 
target  your  C  code  for  an  EMA  system  when  compiling  on  a 
CRAY  Y-MP  or  CRAY  X-MP  system. 

2.  Compile  and  link  the  calling  Ada  procedure.  First  invoke  the 
Ada  compiler  and  then  the  Ada  linker,  as  in  the  following 
example: 

ada  /usr/lib/ada/exainples/show_args .ada 
aid  -p  'get_arg.o'  show_argument 

In  this  example,  show_args .  ada  is  the  source  file  containing 
the  Ada  procedure  Show_Arguinent,  show_arguineiit  is  the 
executable  file  the  linker  produces  and  puts  in  the  current 
working  directory,  and  get_arg .  o  is  the  object  module 
produced  by  the  C  compiler.  The  -p  option  directs  the 
compiler  to  include  object  file  get_arg .  o  in  the  link.  The 
-p  option  can  also  appear  on  the  command  line  for  ada  when 
the  -m  option  is  used.  In  this  case,  the  compiler  passes  the 
option  to  the  linker.  For  details  on  the  ada  and  aid 
commands,  see  Cray  Ada  Environment,  Volume  1:  Reference 
Manual,  publication  SR-3014. 


The  following  example  uses  System.  Label  to  access  external 
variable  errno.  When  errno  is  used,  external  must  be  specified 
in  the  declaration  for  System.  Label. 
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with  SYSTEM; 

package  LIBC_ROUTINE  is 

—  Declaration  for  a  LIBC  routine  used  to  create  a  file 

function  CREATE_FILE (FILENAME  :  in  SYSTEM. ADDRESS; 

MODE:  in  INTEGER)  return  INTEGER; 

pragma  INTERFACE  (C,  CREATE_FILE) ; 

pragma  INTERFACE_INFORMATION  ( CREATE. FILE, 'create' ) ; 
end  LIBC_ROUTINE; 


with  System,  UNCHECKED_CONVERSION,  TEXT_IO,  INTEGER_TEXT_IO; 
with  LIBC_ROUTINE; 

procedure  lab003  is 

—  an  example  of  how  to  map  global  C  variables  to  Ada  variables. 

—  The  LIBC  routine  'creat'  creates  a  file  in  a  directory.  If  the 

—  file  creation  fails,  the  global  C  variable  'ermo'  is  updated 

—  with  the  reason  for  the  failure.  In  order  for  an  Ada  program  to 

—  examine  this  global  value,  an  address  clause  is  used  to  map 

—  the  global  C  variable  to  a  local  Ada  object. 

ERRORl  :  INTEGER; 

ERRNO  ;  INTEGER; 

for  ERRNO  use  at  System. Label  ( 'errno, external' ) ; 
FILE_CREATION_FAILED  ;  exception; 

FILE_NAME  :  STRING  (1  . .  14 ) ; 

SUCCESSFUL_CREATE  :  constant  INTEGER  :=  0;  — 

FILE_DESCRIPTOR  :  INTEGER; 

LAST  :  INTEGER; 

begin 

TEXT_IO.PUT  ('Enter  file  name  to  create:'); 

TEXT_IO.GET_LINE  (FILE_NAME,  LAST) ; 

FILE_DESCRIPTOR  :=  LIBC_ROUTINE . CREATE_FILE  (FILE_NAME 'ADDRESS , 
8#777#) ; 

ERROR !  : =  ERRORl ; 

(continued) 
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if  FILE_DESCRIPTOR  <  0  then 
raise  FILE_CREATION_FAILED; 
end  if; 

exception 

when  FILE_CREATION_FAILED  => 

TEXT_IO.PUT  (“File  creation  failed  with  error  number:  '); 
INTEGER_TEXT_10 . PUT  ( ERRORl ) ; 

TEXT_IO . NEW_LINE ; 

end  lab003 


Pragma  interface 
to  Fortran 

7.7 


The  Cray  Ada  Environment  supports  pragma  INTERFACE  to 
routines  written  in  Fortran.  The  format  for  pragma  INTERFACE 
to  a  Fortran  routine  is  as  follows: 


pragma  INTERFACE  (Fortran,  Ada_subprogram_name ) ; 


Fortran  specifies  the  passing  of  arguments  by  address 
(reference).  Therefore,  the  compiler  will  pass  the  address  of 
parameters,  unless  the  actual  is  an  address  or  access  t3rpes. 

Functions  may  also  be  declared  as  being  interfaced  to  Fortran, 
but  their  restdt  type  is  restricted  to  being  either  a  scalar  type, 
access  type,  or  system,  address  type  (Ada  access  types 
correspond  to  Fortran  pointer  t3?pes). 

Table  10  shows  a  generahzed  mapping  of  Ad  Mo  Fortran  data 
types  and  the  method  used  for  passing  them.  This  information 
is  very  system  dependent,  is  neither  portable  nor  standard,  and 
is  recommended  only  for  specialized  apphcations  by 
knowledgeable  users.  There  is  no  direct  mapping  for  data  types 
other  than  scalars,  arrays  of  scalar  s,  and  access  types.  It  is 
recommended  that  you  contact  your  system  support  staff  for 
information  based  on  your  specific  Cray  Reseau"^  system  and 
language  environment. 
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Table  10.  Summary  of  parameter  types  for  Ada  calling  Fortran 


Parameters  sent  by  Ada 

Parameters  received  by 
Fortran 

Ada  function 

Type 

Passed  by 

Type 

Passed  by 

Results 

integer 

integer ' address 

integer 

Reference 

integer 

float 

float 'address 

real 

Reference 

float 

array ( 1 . 

.  n,l..in)  array  (array '  FIRST)  'ADDRESS 

array 

Reference 

Illegal  4 

access 

access ' address 

pointer 

Reference 

access 

§  You  could  use  an  access  type  to  point  to  this  structure. 


Fortran  usage 
considerations 
7.7.1 


The  following  subsections  describe  considerations  spedhc  to 
Fortran.  These  include  both  parameter  passing  and  string 
parameters. 


Fortran  parameter  passing 
7.7.1.1 


Fortran  stores  multidimensional  arrays  differently  than  do  Ada, 
C,  and  Pascal;  it  keeps  them  in  column-m^or  order,  because  that 
is  how  Cray  Research  library  routines  operate  on  them.  (UNIX 
library  routines  may  be  different  than  those  in  UNICOS.) 

Becaiise  of  this  difference  between  Fortran  and  Ada  (as  one 
example),  routines  that  are  written  in  Ada,  declare 
multidimensional  arrays,  and  that  may  be  used  with  Fortran 
code  or  passed  to  library  routines  should  be  careful  to  do  the 
following: 

•  Reverse  the  order  of  the  dimensions  in  the  declarations 

•  Reverse  referencing  subscripts  in  the  code  to  conform  to  the 
column-msgor  storage  system 


The  interlanguage  programming  conventions  described  in  this 
manual  apply  to  Fortran.  Ada  programmers  must  transform 
data  to  conform  to  these  conventions  if  they  intend  to  write 
programs  that  may  have  to  interface  with  either  programs  or 
library  routines  that  may  be  written  in  other  languages.  (Many 
Cray  Research  library  routines  are  written  in  Fortran.) 
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Fortran  string  parameters 
7.7. 1.2 


Fortran  usage  examples 
7.7.2 


Calling  a  Fortran  library 

routine 

7.7.2.1 


See  the  listing  for  get_copy .  ada  on  page  156  for  an  example  of 
this. 


Fortran  passes  strings  by  using  a  Fortran  character  descriptor. 
There  is  no  direct  mapping  from  an  Ada  character  string  to  a 
Fortran  character  descriptor  in  Cray  Ada  release  2.0.  Contact 
your  local  Cray  Research  representative  for  information  specific 
to  your  system  and  language  environment. 


This  subsection  provides  several  examples  explaining  the  use  of 
pragma  INTERFACE  for  Fortran.  The  test  cases  do  not 
necessarily  do  any  useful  work;  they  are  meant  to  be  simple, 
concise  examples  of  how  to  pass  parameters  between  Ada  and 
Fortran.  Source  files  for  each  example  are  in  the 
/usr/lib/ada/exaitiples  directory. 


In  this  example,  an  Ada  program,  ada_sin .  ada,  uses  pragma 
INTERFACE  to  caU  a  Fortran  math  library  routine,  s  in.  The  Ada 
routine  follows: 
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with  System; 
with  Text_Io; 

procedure  Ada_Sin  is 

—  I/O 

package  Fio  is  new  Text_Io.Float_Io 
(Float) ; 

—  Define  Variables 

X  :  Float; —  input  value  to  sin 

Y  :  Float; —  return  value  from  sin 

—  Set  up  for  pragma  interface  to  Sin 
function  Sin  (X  :  System. Address )  return 

Float ; 

pragma  Interface  (Fortran,  Sin) ; 
begin 

X  :=  1.570795; 

Y  :=  Sin  (X' Address); 

Text_Io.Put  (*sin  of  '); 

Fio. Put  (X); 

Text_Io.Put  ('  is  *); 

Fio. Put  (Y); 

Text_Io .New_Line; 
end  Ada_Sin; 


The  Ada  program  can  be  compiled  and  linked  by  the  following 
commands: 

ada  -V  ada_sin.ada 

aid  -V  ada_sin 

The  first  of  these  two  command  lines  calls  the  Ada  compiler  to 
compile  ada_sin .  ada.  The  aid  command  calls  the  Ada  linker 
to  bind  and  link  the  object  files  in  the  Ada  library  The  Fortran 
SIN  routine  is  located  in  UNICOS  hbraiy  libm.  a.  Because  this 
is  one  of  the  hbraries  that  SEGLDR  searches  by  default,  it  is  not 
necessary  to  specify  this  library  exphdtly  on  the  linkage 
command  line.  The  executable  module  is  called  ada_s  in. 
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Calling  a  user-defined 
Fortran  routine 
1.1.22 


In  the  following  example,  an  Ada  program,  chng_f  It .  ada,  calls 
a  Fortran  routine,  change .  f ,  passing  an.  integer  value  to  it. 

The  integer  is  changed  to  a  floating-point  number,  multiplied  by 
a  floating-point  value,  and  the  result  is  passed  back  to  the  Ada 
routine,  which  then  prints  it.  The  Ada  routine,  chng_f  It .  ada, 
follows. 


Send_value  =  integer; 

Return_value  =  float; 
with  System; 
with  Text_Io; 

procedure  Chng_Flt  is 

--  I/O 

subtype  Fit  is  Float; 

sxibtype  Int  is  Integer; 

package  Fio  is  new  Text_Io.Float_Io  (Fit); 

package  lio  is  new  Text_Io. Integer_Io  (Int); 

—  Define  Variables 
Send_Value  :  Int; 

Return_Value  ;  Fit; 

—  Set  up  for  pragma  interface  to  Change 

function  Change  (Intarg  :  System. Address)  return  Float; 
pragma  Interface  (Fortran,  Change); 

begin 

Send_Value  ;=  1025032; 

Return_Value  :=  Change  ( Send_Value' Address ) ; 

—  preceding  line  is  call  to  Fortran 
Text_Io.Put  ('Integer  Value  =  '); 
lio. Put  (Send_Value) ; 

Text_Io.Put  ('  Float  Value  =  '); 

Fio. Put  (Return_Value) ; 

Text_Io .New_Line; 
end  Chng_Flt; 
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The  Fortran  routine  change  is  as  follows: 


C  returns  15.325  times  the  Input  Value, 
function  change (ival) 
integer  ival 

change  =  float (ival)  *  15.325 

return 

end 


The  example  can  be  compiled  and  linked  by  the  following 
commands: 

cf77  change. f 

ada  -V  -m  chng_flt  -p  'change. o'  chng_flt.ada 

The  CF77  compilation  uses  its  default  parameters  and  produces 
an  object  file,  change .  o.  Remember  to  target  yoiu"  Fortran  code 
for  an  EMA  system  when  compiling  on  a  CRAY  X-MP  £A  system. 
The  Ada  command  line  asks  for  verbose  messages  and 
automatically  calls  the  Ada  linker,  producing  an  executable  file, 
chng_f  It.  The  -p  option  is  sent  to  the  linker,  and  it  requests 
that  the  object  module  be  included  at  link  time.  The 
chng_f  It .  ada  file  is  the  Ada  module  to  be  compiled. 


Accessing  Fortran  common  This  subsection  includes  two  examples.  They  are  examples  of 
blocks  accessing  Fortran  common  blocks  and  external  data.  In  the 

7. 7.2.3  second  example,  the  Ada  routine  copies  the  Fortran  array. 

The  following  is  an  example  of  vising  system,  label.  A  common 
block  is  set  up  in  Fortran.  The  Ada  program  calls  the  Fortran 
subroutine,  and  the  Fortran  subroutine  assigns  values  to  the 
variables  in  the  common  block.  On  return  to  Ada,  the  values  are 
printed  to  show  that  the  two  routines  are  sharing  the  data. 

lb  compile  and  link  this  code,  perform  the  following: 

ada  -V  labOOi.ada 
cf77  lab002.f 

aid  -V  -p  'lab002.o'  labOOl 
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with  SYSTEM, TEXT_10; 
PROCEDURE  labOOl  IS 


TYPE  coinmon_rec  IS 
RECORD 
X : INTEGER ; 

Y:INTEGER; 

Z : INTEGER; 

END  RECORD; 

PRAGMA  PRESERVE_LAYOUT  ( conimon_rec )  ; 
coinm_rec_var ;  coinmon_rec  ; 

for  coiTm_rec_var  use  at  system,  label  ( 'Cl ,  COMMON' )  ; 

package  lio  is  new  Text_Io. Integer_Io (Integer) ; 
procedure  Lab002; 

pragma  INTERFACE (Fortran,  Lab002); 

BEGIN 

text_IO. Put_Line ( 'test  labOOl') ; 

Lab002 ; 

lio.Put (comm_rec_var.X) ; 
lio. Put ( comm_rec_var . Y ) ; 

END; 

Fortran  code: 

SUBROUTINE  LAB002() 

COMMON/Cl/ix, iy,iz 
ix=5 
iy=6 
i2=7 
END 


The  previous  example  shows  how  to  copy  an  array  from  a 
Fortran  common  block  by  using  the  Ada  get_copy .  ada  routine, 
which  calls  a  Fortran  subroutine,  copy .  f .  Because  the  array  is 
copied,  rather  than  shared  as  in  the  previous  example,  any 
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assignments  to  the  copied  array  in  Ada  do  not  affect  the  Fortran 
version  of  the  array.  The  dimensions  and  order  of  the  subscripts 
must  be  reversed,  because  Fortran  stores  array  elements  by 
column-major  order. 

The  source  codes  for  both  of  the  routines  in  this  example  are 
located  in  /usr/lib/ada/examples. 

The  Ada  routine,  get_copy .  ada,  follows: 

with  System; 
with  Text_Io; 
procedure  get_copy  is 

—  Data 

X_copy:  array (1 . . 2 , 1 . . 3 )  of  Float; 

—  I/O 

package  Fio  is  new  Text_Io.Float_Io  (Float); 

—  Set  up  for  pragma  interface  to  Copy 
procedure  Copyd:  In  System.Address)  ; 
pragma  Interface  (Fortran,  Copy) ; 

begin 

Copy ( X_copy ' address ) ; 

Text_Io.Put  ('The  values  of  array  x  are:  '); 
Text_Io .New_Line; 
for  I  in  1..2  loop 
for  J  in  1 . . 3  loop 

Fio. Put  (X_copy ( I , J) ) ; 
end  loop; 

Text_I o . New_L ine ; 
end  loop; 

Text_Io.New_Line; 

end  get_copy; 
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The  Fortran  routine,  copy .  f ,  follows. 


subroutine  copyly) 

C  reverse  dimensions 

common  /bloc)c2/x  (2 , 3  ) 
dimension  y(3,2) 
data  x/1. 1,2. 1,1. 2, 2. 2, 1.3, 3. 3/ 
write  (*,*)  x(l,l),x(l,2),x(l,3) 
write  (*,*)  X (2 , 1) ,x (2 , 2 ) ,x  (2 , 3 ) 
C  reverse  subscripts 
do  10  i=l,2 
do  10  j=l,3 
10  y(j,i)  =  x(i, j) 
return 
end 


You  can  compile  and  link  the  preceding  example,  producing  an 
executable  file  named  get_copy,  with  the  following  UNICOS 
command  lines: 


cf77  /usr/lib/ada/examples/copy . f 

ada  -m  get_copy  -p  'copy. o'  /usr/lib/ada/exanples/get_copy . ada 


Pragma  interface 
for  Pascal 

7.8 


The  Cray  Ada  Environment  supports  pragma  INTERFACE  to 
routines  written  in  Pascal.  The  format  for  a  pragma  that 
provides  an  interface  to  a  Pascal  routine  is  as  follows: 


pragma  INTERFACE  (Pascal,  Ada_subprogram_name ) ; 


The  Pascal  routine  must  be  declared  Exported,  as  follows: 

procedure  Ada_subprog_name;  Exported 
( ada_subprog_name ) ; 
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The  Exported  statement  is  necessary,  and  it  must  have  as  its 
argument  the  all-lowercase  name  of  the  routine  as  declared  in 
the  INTERFACE  pragma.  If  pragma  interface_information 
is  used  instead  of  INTERFACE,  the  routine-name  argument  is 
specified  exactly  as  declared  in  INTERFACE_INF0RMATI0N. 

Pascal  routines  called  from  Ada  are  limited  to  having  only  value 
and  VAR  parameters  that  are  scalars,  pointers,  composites 
(though  no  conformant  arrays  are  permitted),  or  strings.  Pascal 
functions  may  return  only  scalars  or  pointers. 

Tb  pass  a  variable  to  a  Pascal  VAR  parameter,  the  Ada 
declaration  of  that  Pascal  routine  must  declare  that  parameter 
as  in  out.  Pascal  value  parameters  must  be  declared  in  Ada  as 
in  parameters.  All  other  combinations  are  currently 
unsupported  and  can  cause  unpredictable  results. 

Ada  composites  passed  to  Pascal  must  be  constrained.  Ada 
strings  passed  to  Pascal  must  be  constrained  and  word  ahgned. 


Note 

If  any  of  the  parameters  are  access  types,  Pascal  pointer 
checking  mxist  be  disabled.  Insert  (*#RPN*)  into  yoxir  Pascal 
subroutines  that  are  called  from  Ada. 


Calling  Ada  from 

foreign  languages 

7.9 


Pragma  EXPORT  provides  a  means  by  which  foreign  code  can 
make  calls  to  Ada  programs.  Routines  written  in  Fortran,  C, 
P2iscal,  and  assembler  languages  can  call  Ada  subprograms, 
provided  that  an  Ada  routine  is  the  main  subprogram. 
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This  pragma  is  allowed  to  be  given  only  for  a  library  subprogram 
or  for  a  subprogram  declared  immediately  within  a  package 
specification  or  body  that  is  itself  not  declared  within  another 
subprogram,  task,  or  generic  unit.  The  pragma  must  be  given 
wit]^  the  same  task  or  generic  unit  and  in  the  case  of  a  Ubrary 
subprogram  within  the  same  specification  or  declarative  part 
that  contains  the  subprogram  declaration.  No  more  than  one 
EXPORT  pragma  is  allowed  for  a  given  subprogram  name.  If  the 
name  denotes  more  than  one  subprogram  declared  earlier  within 
the  same  package  specification  or  declarative  part,  a  warning  is 
issued  and  the  pragma  is  ignored. 

Parametere  tised  in  the  exported  routine  must  be  of  type  access 
or  system,  address. 

The  calling  foreign  language  routine  mxist  not  be  multitasked  in 
any  way  (microtasked,  macrotasked,  or  autotasked),  nor  should 
any  of  its  callers  be  mtiltitasked.  The  Ada  compiler  does  not 
necessarily  generate  reentrant  code  for  subprograms,  and 
reentrance  of  code  is  a  requirement  for  multitasking.  This 
restriction  appUes  to  only  multitasking  and  not  to  Cray  Ada 
tasking.  Ada  tasks  can  call  foreign  language  routines,  which  can 
subsequently  call  back  into  Ada,  without  any  problems. 


Note 

The  EXPORT  pragma  does  not  allow  the  specification  of  language 
unlike  pragma  INTERFACE. 


The  syntax  of  pragma  EXPORT  is  the  following: 


pragma  EXPORT  ( [NAME  => 

<subprogram> 

[,  [LINK_NAME  =>]  <string_literal>] ; 
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Calling  Ada  from 
assembly  language 
7.9.1 


Calling  Ada  from 
Fortran 

7.9.2 


subprogram  This  argitment  must  be  the  simple  name  of 
a  subprogram,  subject  to  the  restrictions 
specified  previously. 

The  name  is  allowed  to  be  a  name  given  by 
a  subprogram.  Renaming  is  allowed  only 
if  the  renaming  declaration  occurs 
immediately  within  the  same  package 
specification  or  declarative  as  the 
subprogram  that  is  renamed  and  an 
EXPORT  pragma  does  not  otherwise  apply 
to  the  subprogram.  The  name  is  not 
allowed  to  denote  a  subprogram  for  which 
an  INTERFACE  pragma  has  been  specified. 

Similarly,  an  INTERFACE  pragma  may  not 
be  specified  for  a  subprogram  for  which  an 
EXPORT  pragma  has  been  specified. 

str ing_l  i  t  e  This  argument  is  a  string  literal  defining 

ral  the  link  name  that  external  languages  will 

use  to  access  the  named  subprogram.  The 
linJc_naine  must  be  specified. 


The  calling  conventions  for  calling  Ada  from  Cray  Assembly 
Language  using  pragma  EXPORT  are  the  same  as  those  for 
calling  Ada  fi'om  Fortran. 


The  following  example  shows  a  pragma  EXPORT  using  Fortran. 
The  main  program  is  Ada,  and  it  calls  the  Fortran  routine, 
caller,  caller  then  invokes  the  Ada  subprogram,  exported. 
This  routine  prints  out  the  values.  Control  then  returns  to 
Fortran,  then  back  to  Ada,  and  the  program  exits. 
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—  The  program  will  display  the  values  of 

—  a,  b,  c  and  d,  they  will  be  27,  28,  29  and  30,  respectively. 

—  In  exported: 

—  a.all  =  27 

—  b.all  =  28 

—  c.aU  =  29 

—  d.all  =  30 

package  exporter  is 

type  aint  is  access  Integer; 
procedure  exported  (a,  b,  c,  d  :  in  aInt); 
pragma  export  (exported,  'EXPORTED'); 
end  exported; 


with  Text_IO; 
package  body  exported  is 

procedure  exported  (a,  b,  c,  d  :  in  aint)  is 
begin 

Text_I0. Put_line ( 'In  exported: ' ) ; 
Text_IO.Put_Line('a.all  =  '&  integer ' image (a.all) ) 
Text_lO.Put_line( 'b.all  =  '&  integer ' image (b. all ) ) 
Text_lO.Put_line('c.all  =  '&  integer'image(c.all) ) 
Text_IO.Put_line( 'd.all  =  '&  integer ' image (d.all ) ) 
end  exported; 
end  exported; 


with  System; 
with  Text_IO; 
with  exporter; 
procedure  texport  is 

procedure  caller  (d,  e,  f,  g  :  in  Integer); 
pragma  interface  (  FORTRAN,  caller) ; 
i,  j,  k,  1  :  integer; 
begin 


caller  (i, 
end  texport; 


k,  1); 
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Fortran  Source  Code: 


subroutine  caller  (I,J,K,L) 
call  exported  (I,J,K,L) 
end 


Calling  Ada  from  C  The  following  is  an  example  of  the  EXPORT  pragma  using  C.  The 

7.9-3  Ada  main  program  calls  the  C  function,  caller.  The  C  function 

calls  the  Ada  subprogram  exported.  The  exported 
subprogram  prints  the  values.  Control  is  then  returned  to  C,  a 
retvim  value  of  0  is  sent  back  to  the  Ada  main  program  and  the 
value  is  printed. 
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—  The  program  will  display  the  values  of 

—  a,  b,  c  and  d,  they  will  be  27,  28,  29,  and  30,  respectively. 

—  Status  is  equal  to  zero. 

—  In  exported: 

—  a  =  27 

—  b  =  28 

—  c  =  29 

—  d  =  30 

—  Status  =  0 

package  exporter  is 

type  aint  is  access  Integer ; 
procedure  exported  (a,  b,  c,  d  :  in  aInt); 
pragma  export (exported,  'exported'); 
end  exporter; 


with  Text_IO; 

package  body  exporter  is 

procedure  exported  (a,  b,  c,  d  :  in 
begin 

Text_I0.  Put_line  ( 'In  exported:' 


in  aint)  is 


Text_I0. Put_line ( 'a 
Text_IO. Put_line ( 'b 
Text_IO. Put_line ( 'c 
Text_IO. Put_line { 'd 
end  exported; 
end  exporter; 


=  '&  integer' image (a. all) ) : 
=  '&  integer' image (b. all) ) ; 
=  '&  integer' image (c. all) ) ; 
=  '&  integer' image (d. all) ) ; 


with  System; 
with  Text_IO; 
with  exporter; 
procedure  texport  is 

function  caller  (d,  e,  f,  g 
pragma  interface  (C,  caller) 
i,  j,  k,  1,  status:  integer; 
begin 


status 


=  caller(i, 


k,  1) 


in  integer)  return  Integer; 


Text_IO.Put_line( 'Status  ='  &  integer ' image (status)); 


end  texport; 
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Calling  Ada  from 

Pascal 

7.9.4 


The  following  is  an  example  of  the  EXPORT  pragma  tising  Pascal. 
The  Ada  main  program  calls  the  Pascal  function,  caller.  The 
caller  then  calls  the  Ada  subprogram,  exportpascal.  The 
exportpascal  subprogram  prints  the  values.  Control  is  then 
returned  to  Pascal.  A  value  of  0  is  returned  to  the  Ada  main 
program,  and  the  value  is  printed. 
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—  The  program  will  display  the  values  of 

—  a,  b,  c  and  d,  they  will  be  27,  28,  29,  and  30,  respectively. 

—  Status  is  equal  to  zero. 

—  In  exported: 

—  a  =  27 

—  b  =  28 

—  c  =  29 

—  d  =  30 

—  Status  =  0 

package  exporter  is 

type  aint  is  access  Integer; 

procedure  exportpascal  (a,  b,  c,  d  :  in  aInt); 
pragma  export (exportpascal .  'EXPORTPASCAL'); 
end  exporter; 


with  Text_IO; 

package  body  exporter  is 

proced\ire  exportpascal  (a,  b,  c,  d  : 
begin 

Text_IO. Put_line ( 'In  exported: ' ) ; 
Text_IO.Put_line('  a  =  '  &  intege 
Text_IO.Put_line('  b  =  '  &  intege 
Text_IO. Put_line ( '  c  =  '  &  intege 
Text_IO. Put_line ( '  d  =  '  &  intege 
end  exportpascal; 
end  exporter; 


in  aint) 


integer ' image (a 
integer ' image (b 
integer ' image { c 
integer ' image (d 


.all) ) ; 
.all) ) ; 
.all) ) ; 
.all) ) ; 


with  System; 
with  Text_IO; 
with  exporter; 
procedure  texport  is 

function  caller (d,  e,  f,  g  :  in  Integer) 
pragma  interface  (PASCAL,  caller); 


return  Integer; 


1,  : 
begin 


k,  1,  status;  integer; 


status 


=  callerd, 


k,  1); 


Text_IO.Put_line('  Status  = 


integer ' image ( status ) ) ; 


end  texport; 


(continued) 
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Pascal  Source  Code: 


Module  mod004; 


( *Necessary  for  creating  a.o  without  a  main  program* ) 


procedure  exportpascal  (a  ;  INTEGER;  ( *Extemal  Ada  routine  definition* ) 

b  :  INTEGER; 
c  :  INTEGER; 
d  :  INTEGER);  EXTERNAL; 


function  caller (a  :  INTEGER 
b  :  INTEGER 
c  :  INTEGER 
d  :  ( INTEGE] 


INTEGER)  INTEGER;  EXPORTED; 


begin 

exportpascal (a,b,c,d) ; 
caller  :=  0; 

end. 
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and  delimiters 
A  1.2 

LRM  2.8:  Pragmas 
A  1.3 


The  Cray  Ada  compiler  supports  the  full  ANSI  Ada  language  as 
defined  by  the  Reference  Manual  for  the  Ada  Programming 
Language  (LRM)  publication  ANSI/MIL-STD-1815A  This 
subsection  describes  the  sections  of  the  language  that  are 
designated  by  the  LRM  as  implementation  dependent  for  the 
compiler  and  runtime  environment.  These  language-related 
issues  are  presented  in  the  order  in  which  they  appear  in  the 
LRM.  Each  section  answers  the  corresponding  section  of 
questions  presented  inAda-Europe  Guidelines  for  Ada  Compiler 
Specification  and  Selection  ( J.  Nissen  and  B.  Wichmann,  MPL 
Report  DITC  10/82). 


This  subsection  describes  the  parts  of  section  2  of  the  LRM  that 
are  applicable  to  the  Cray  Ada  implementation. 


The  host  and  target  character  set  is  the  ASCII  character  set. 


The  meudmum  number  of  characters  on  an  Ada  source  line  is 

200. 


The  Cray  Ada  compiler  implements  all  language-defined 
pragmas.  Pragmas  PAGE  and  LIST  are  supported  in  the  context 
of  source  and  error  Ustings. 

The  implementation-defined  pragmas  for  the  Cray  Ada  compiler 
and  their  documentation  are  as  follows: 

•  COMMENT,  described  in  this  subsection 

•  EXPORT,  described  on  page  160 
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•  IMAGES,  described  on  page  171 

•  INTERFACE_INF0RMATI  ON,  described  on  page  138 

•  PRESERVE_LAYOUT,  described  on  page  81 

•  SUPPRESS_ALL,  described  on  page  190 

•  VECT0RI2E_L00P,  described  on  page  65 

•  NO_SUPPRESS,  described  on  page  190 

•  LINKNAME,  described  on  page  140 


Pragma  COMMENT  Pragma  COMMENT  embeds  a  comment  into  the  object  code.  Its 

A.1.3.1  syntax  is  as  follows: 


pragma  COMMENT  { string Jiteral)  ; 


The  string  Jiteral  represents  the  characters  to  be  embedded  in 
the  object  code.  Pragma  COMMENT  may  appear  at  any  location  in 
the  source  code  of  a  compilation  unit  except  the  generic  formal 
part  of  a  generic  unit.  You  may  enter  any  number  of  comments 
into  the  object  code  by  using  pragma  COMMENT. 


Pragma  INTERFACE_lNFORMATION  provides  an  interface  to  any 
routine  whose  name  can  be  specified  by  an  Ada  string  literal.  It 
may  appear  in  any  declaration  section  of  a  unit.  This  allows 
access  to  routines  whose  identifiers  do  not  conform  to  Ada 
identifier  rules.  Pragma  INTERFACE  must  always  appear 
immediately  before  pragma  INTERFACE_INF0RMATI0N  for  the 
associated  program.  The  syntax  is  as  follows: 


Pragma 

1NTERFACE_ INFORMATI ON 

A  1.3.2 


pragma  INTERFACE  { subprogram jiame) ; 

pragma  INTERFACE_lNFORMATlON  [suhprogramjiame ,  String  Jiteral)  ; 


170 


Cray  Research,  Inc 


SR-3082  2.0 


Cray  Ada  Environment,  Volume  2:  Programming  Guide 


LRM  Annotations 


Pragma  OPTIMIZE 
A.1.3.2.1 


LRM  section  3: 
Declarations  and 
types 

A.2 

LRM3J2.1:  Object 

declarations 

A.2.1 


LRM  3.5.1: 
Enumeration  types 

A.2.2 


Pragma  INTERFACE_INF0RMATI0N  takes  two  arguments.  The 
subprogram  name  argument  was  previotisly  specified  in  a 
pragma  INTERFACE.  The  second  is  a  string  literal  argument 
that  specifies  the  exact  link  name  to  be  used  by  the  code 
generator  in  emitting  calls  to  the  associated  subprogram.  See 
“Interfacing  to  Other  languages,"  page  133,  for  more  information. 


Pragma  OPTIMIZE  is  supported  with  limitations.  The  -0  option 
mtist  be  specified  for  this  option  to  take  efiect. 


This  subsection  describes  the  parts  of  LRM  section  3  appUcable 
to  the  Cray  Ada  implementation. 


The  Cray  Ads  compiler  produces  warning  messages  about  the 
use  of  uninitialized  variables  if  the  optimizer  is  inn.  The 
compiler  does  not  reject  a  program  merely  because  it  contains 
such  variables. 


The  theoretical  maximum  number  of  elements  in  an 
enumeration  type  is  {2*^)  -1.  The  actual  limit  is  much  lower  due 
to  hardware  address  limits,  and  can  be  realized  only  if 
generation  of  the  image  table  for  the  t3Tje  has  been  deferred  and 
there  are  no  references  anywhere  in  the  program  that  woiild 
cause  the  image  table  to  be  generated.  The  image  table  is 
actually  two  tables:  a  string  literal  consisting  of  all  the  literals 
concatenated  together,  and  an  index  table  consisting  of  an  array 
of  integers  of  length  (ni/m€r_o/l./itera/s  +  1) 

It  is  obvious  fi'om  this  that  for  a  very  large  eniuneration  type, 
the  length  of  the  image  table  can  become  quite  large. 

The  Cray  Ada  implementation-defined  pragma  IMAGES  controls 
the  creation  and  allocation  of  the  image  table  for  an  enumeration 
type.  This  pragma  may  appear  only  in  a  compilation  unit.  The 
S3nitaxes  of  this  pragma  are  as  follows: 
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pragma  IMAGES 


{enumeracion_type,  deferred) ; 
(enumeration_Cype,  immediate); 


The  default  clause  is  deferred.  This  saves  space  in  the  literal 
table  by  not  creating  an  image  table  for  an  enumeration  type 
imIPRH  the  '  image,  '  value,  or  'width  attribute  for  the  type  is 
xised.  If  one  of  these  attributes  is  used,  an  image  table  is 
generated  in  the  literal  pool  of  the  compilation  unit  in  which  the 
attribute  is  used.  If  the  attributes  are  used  in  more  than  one 
compilation  unit,  more  than  one  image  table  is  generated, 
eliminating  the  benefits  of  deferring  the  table.  Using  the  default 
clause,  deferred,  for  aU  enumeration  types  lets  users  declare 
very  large  enumeration  types.  Using  the  immediate  clause 
generates  the  literal  table. 


LRM  3.5.4:  Integer  There  is  one  predefined  integer  type:  INTEGER.  The  attributes 

types  of  type  INTEGER  are  shown  in  Table  11.  Using  explicit  integer 

A.2.3  type  definitions  rather  than  predefined  integer  types  result  in 

more  portable  code.  Types  Short_lnteger  and  Long_Integer 
are  not  implemented. 


Ihble  11.  Attributes  of  predefined  type  INTEGER 


Attribute 

Type  INTEGER 

'  First 

-35,184,372,088,832  (-2**45) 

'Last 

35,184,372.088.831  (2**45>-l 

'  Size 

46 

'Width 

15 

LRM  3.5.5:  Operations 
of  discrete  types 
A2.4 


Cray  Ada  supports  implementation-dependent  attributes  for 
discrete  types  as  described  on  the  following  pages. 
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Ext  ended_Image 
attribute  for  discrete  types 
A-2.4.1 

The  Extended_Image  attribute  returns  the  string  image 
associated  with  its  first  parameter  (either  an  integer  or 
enumeration  type),  based  on  the  appropriate  t3T3e  Text_IO 
definitions  found  in  the  LRM. 

Extended_Image 
attribute  for  integer  types 
A.2.4.2 

The  definition  for  the  Extended_Image  attribute  for  integers 
states  that  the  value  of  ITEM  will  be  consistent  with  the  LRM 
integer  Text_IO  definition  for  put:  an  integer  literal  with  no 
underlines,  no  exponents,  no  leading  zeros  (but  a  single  zero  for 
the  zero  value),  and  a  minus  sign  if  negative.  If  the  resulting 
sequence  of  characters  to  be  output  has  fewer  than  Width 
characters,  leading  spaces  are  first  output  to  make  up  the 
difference.  See  LRM  subsections  14.3.7:10  and  14.3.7:11.  The 
Extended_Image  attribute  has  the  following  s5Titax  when  used 
with  integer  types: 

T'  Ext ended_lmage (Item ,  Width, Base, Based.  SpaceJfJPositive) 

For  a  prefix  T  that  is  a  discrete  type  or  subtjTpe,  this  attribute  is 
a  function  that  may  have  more  than  one  parameter.  Named 
association  cannot  be  used  with  any  of  the  parameters. 
Parameter  Item  mtist  be  an  integer  value.  The  resulting  string 
is  without  underlines,  leading  zeros,  or  trailing  spaces. 


The  parameter  descriptions  for  the  Extended_Image  function 
for  integer  types  are  as  follows: 


Parameter 

Description 

Item 

Item  for  which  an  image  is  desired.  This 
parameter  is  required. 

Width 

Minimum  number  of  characters  to  be  in  the 
returned  string.  If  a  width  is  not  specified,  the 
default  is  0. 

Base 

Base  in  which  the  image  is  to  be  displayed.  If  a 
base  is  not  specified,  the  default  is  10. 

Based 

Specifies  (true  or  false)  whether  the  returned 
string  is  in  base  notation.  If  a  preference  is  not 
specified,  the  default  is  false. 
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Parameter  Description 
Space  _lf_Positive 

User  may  specify  whether  the  sign  bit  of  a 
positive  integer  is  included  in  the  string 
returned.  If  a  preference  is  not  specified,  the 
default  is  false. 


Example  of 

Ext  ended_Image  for 

integer  types 


A.2.4.3 


Tb  see  how  this  attribute  can  be  used,  suppose  the  following 
subtype  were  declared: 


Subtype  T  is  Integer  Range  -10..16; 
The  following  would  then  be  true: 


T ' Extended_Image ( 5 ) 

T ' Ext  ended_Image (5,0) 

T ' Ext  ended_Image (5,2) 

T ' Extended_Image (5,0,2) 

T ' Extended_Image (5,4,2) 

T ' Extended_Image (5,0,2,  True ) 

T' Ext ended. Image (5, 0, 10, False) 

T ' Ext ended. Image (5,0,10, False , True ) 

T ' Ext ended. Image (-1 ,0,10, False,  False) 
T ' Ext ended. Image (-1,0,10, False , True ) 
T ' Ext ended. Image (-1 , 1 , 10 , False , True ) 
T ' Ext  ended.Image (-1,0,2, True , True ) 

T ' Ext  ended.Image (-1,10,2, True , True ) 


_  ,5, 

=  '5' 

=  '  5' 

=  '101' 

=  '  101' 

=  '2#101#' 

=  '5' 

_  .  5. 

=  '-1' 

=  '-1' 

_  ._i. 

=  '-2#1#' 

=  '-2#1#' 


Ext  ended.Image 
attribute  for  enumeration 
types 
A.2.4.4 


The  definition  for  the  Ext  ended.Image  attribute  for 
enumeration  types  states  that,  given  an  enximeration  Hteral,  the 
Ext  ended.Image  attribute  outputs  the  value  of  the 
enumeration  hteral  (either  an  identifier  or  a  character  hteral) 
consistent  with  the  LRM  integer  Text.IO  definitions  for 
enxuneration  types.  The  character  case  parameter  is  ignored  for 
character  htei^s.  See  LRM  subsection  14.3.9:9.  The 
Ext  ended.Image  attribute  has  the  foUowing  syntax  when  used 
with  enumeration  t3rpes: 
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T'Extended_Image{/iem,  Width,  Uppercase) 


For  a  prefix  T  that  is  a  discrete  type  or  subt3rpe,  this  attribute  is 
a  function  that  may  have  more  than  one  parameter.  The  Item 
argument  must  be  an  enumeration  value.  The  image  of  an 
enumeration  value  is  the  corresponding  identifier,  which  may 
have  character  case  and  return  string  width  specified. 


The  parameter  descriptions  for  the  Extended_linage  function 
for  enumeration  types  are  as  follows: 


Parameter  Description 

Item  Item  for  which  an  image  is  desired.  This 

parameter  is  required. 


Width  Minimum  number  of  characters  to  be  in  the 

returned  string.  If  a  width  is  not  specified,  the 
default  is  0.  If  the  width  specified  is  larger  than 
the  image,  the  return  string  is  padded  with 
trailing  spaces.  If  the  width  specified  is  smaller 
than  the  image,  the  default  is  \rsed,  and  the 
image  is  output  completely. 


Uppercase  Specifies  the  case  of  the  returned  string.  The 
default,  true,  is  uppercase,  aind  false  is 
lowercase. 


Example  of 
Extended_Image  for 
enumeration  types 


A.2.4.5 


lb  see  how  this  attribute  can  be  used,  suppose  the  following 
types  were  declared: 


Type  X  is  (red,  green,  blue,  purple); 

Type  Y  is  ( 'a' ,  'B' ,  'c' ,  'D' )  ; 

Given  the  preceding  type  declarations,  the  following  would  be 
true: 


X ' Extended_Image ( red) 
X '  Extended_Iinage  ( red , 
X ' Extended_Image ( red, 
X ' Ext  ended_lmage ( r ed , 
X ' Ext  ended_Image { red , 
y ’ Extended_Image ( ' a ' ) 
Y ' Extended_Image ( ' B ’ ) 
Y ' Extended_Image ( ' a ’ , 
y '  Ext  ended_Image ( ' a '  , 


4) 

2) 

0 , false) 
10 , false) 


6) 

0 , true) 


'RED' 
'RED  ' 
'RED' 
'red' 
'red' 


"a" 


'B'  ' 


'  '  a '  ' 


'  '  a  '  ' 
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Ext  ended_Va lue 
attribute  for  discrete  types 
A.2.4.6 


Example  of 
Ext  ended_Va  lue  ^or 
integer  types 
A.2.4.7 


Example  of 
Ext  ended_Va  lue  for 
enumeration  types 
A.2.4.8 


The  Extended_Value  attribute  returns  the  integer  or 
enumeration  value  associated  with  a  string  item  in  a  manner 
consistent  with  the  LRM  Text_IO  definition  for  the  discrete 
type.  The  Extended_Value  attribute  begins  reading  fi-om  the 
beginning  of  the  string  as  described  in  LRM  subsections 
14.3.7.14  and  14.3.9:11  for  the  get  procedure.  The 
Extended_Value  attribute  has  the  following  syntax: 


X '  Extended_Value  (Item ) 


For  a  prefix  X  that  is  a  discrete  t3T)e  or  subtype,  attribute 
Extended_Value  is  a  function  with  a  single  parameter.  The 
actual  parameter.  Item,  must  be  of  predefined  type  string.  Any 
leading  or  trailing  spaces  in  string  X  are  ignored.  In  the  case 
where  an  illegal  string  is  passed,  a  CONSTRAlNT_ERROR  is 
raised. 

The  parameter  description  for  the  Extended_Value  function  for 
discrete  types  is  as  follows; 

Parameter  Description 

Item  Parameter  of  predefined  type  string.  The  type 

of  retiumed  vaJue  is  the  base  t3rpe  X. 


Tb  see  how  this  attribute  can  be  used  with  integers,  suppose  the 
following  subtype  were  declared; 

Subtype  X  is  Integer  Range  -10..16; 

Given  the  preceding  type  declaration,  the  following  would  be 
true; 


X'Extended_Value('5')  =  5 

X'Extended_Value(*  5')  =5 

X'Extended_Value('2#101#')  =  5 

X'Extended_Valuet'-l' )  =  -1 

X'Extended_Value ( '  -1')  =  -1 


lb  see  how  this  attribute  can  be  used  with  enumeration  types. 
Suppose  the  following  type  were  declared; 

Type  X  is  (red,  green,  blue,  purple) ; 
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Ext  ended_W i dt  h 
attribute  for  discrete  types 
A.2.4.9 


Extended_Width 
attribute  for  integer  types 
A.2.4.10 


Example  of 
Extended_Width  for 
integer  types 
A.2.4.11 


The  following  would  then  be  true: 

X ' Extended_Value ( 'red' ) 
X'Extended_Value('  green') 

X ' Extended_Value ( '  Purple') 
X ' Extended_Value ( '  GreEn  ') 


=  RED 
=  GREEN 
=  PURPLE 
=  GREEN 


The  Extended_Width  attribute  returns  the  width  value  of  type 
Natural  for  a  parameter,  depending  on  its  type. 


For  a  prefix  X  that  is  a  discrete  subt3rpe,  the  Extended_Width 
attribute  is  a  fimction  that  may  have  multiple  parameters.  This 
attribute  yields  the  maximum  image  length  over  all  values  of 
type  or  8ubt3rpe  X.  Its  syntax,  when  used  with  integer  types,  is 
as  follows: 


X '  Extended_Width  (Base,  Based,  Space  JfJPositive ) 


The  parameter  descriptions  for  the  Extended_Width  function 

for  integer  types  are  as  follows: 

Parameter  Description 

Base  Base  in  which  the  image  is  to  be  displayed.  If  a 

base  is  not  specified,  the  default  is  10. 

Based  Specifies  ( t  rue  or  f  a  1  s  e)  whether  the  returned 

string  is  in  base  notation.  If  a  preference  is  not 
specified,  the  default  is  false. 

Space  _If_Positive 

User  may  specify  whether  the  sign  bit  of  a 
positive  integer  is  included  in  the  string 
returned.  If  a  preference  is  not  specified,  the 
defaxilt  is  false. 


lb  see  how  this  attribute  can  be  used  with  integer  types,  suppose 
the  following  subtype  were  declared: 

Subtype  X  is  Integer  Range  -10.. 16; 
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Extended_Width 
attribute  for  enumeration 
types 
A.2.4.12 


Example  of 
Extended_Width^r 
enumeration  types 
A.2.4.13 


LRM  3.5.7: 
Floating-point  types 
A.2.5 


Given  the  preceding  type  declaration,  the  following  would  be 
true; 


X ' Extended_Width 

= 

3 

—  '-10' 

X ' Extended_Width ( 10 ) 

= 

3 

—  '-10' 

X ' Ext ended_Width ( 2 ) 

= 

5 

—  '10000* 

X ' Extended_Width ( 10 , True) 

= 

7 

—  '-10#10#' 

X ' Extended_Width (2 , True ) 

= 

8 

—  '2#10000#' 

X ' Extended_Width ( 10 , False , True) 

= 

3 

—  '  16' 

X ' Ext ended_Width ( 10 , True , False ) 

= 

7 

--  '-10#10#' 

X ' Extended_Width ( 10 , True , True ) 

= 

7 

~  '  10#16#' 

X ' Extended_Width (2 , True , True) 

= 

9 

—  '  2#10000# 

X' Extended_Width(2 , False, True) 

= 

6 

—  '  10000' 

For  a  prefix  X  that  is  a  discrete  type  or  subtype,  the 
Extended_Widch  attribute  is  a  function  yielding  the  maximum 
image  length  over  aU  values  of  enumeration  type  or  subt5T)e  x. 
Its  syntax,  when  used  with  enumeration  t3rpes,  is  as  follows; 


FUNCTION  Extended_Width  RETURN  Natural; 


There  are  no  parameters  to  this  function.  It  returns  the  width  of 
the  largest  (width)  enumeration  literal  in  the  enumeration  type 
specified  by  x. 


lb  see  how  this  attribute  can  be  used  with  enumeration  t3T)es, 
suppose  the  following  types  were  declared; 

Type  X  is  (red,  green,  blue,  purple) ; 

Type  Z  is  (XI,  X12,  X123,  X1234); 

The  following  would  then  be  true; 

X ’ Extended_Width  =6  —  'purple* 

Z'Extended_Width  =5  —  'X1234' 


Using  the  formulas  defined  in  subsection  3.5.7  of  the  LRM,  you 
would  expect  MAX_DIGITS  to  equal  15  on  a  Cray  Research 
system.  On  a  Cray  Research  system,  floating-point  accuracy  is 
defined  differently  in  Ada  than  in  Fortran. 


178 


Cray  Rasearch,  Inc. 


SR-3082  2.0 


Cray  Ada  Environment,  Volume  2:  Programming  Guide 


LRM  Annotadons 


LRM  3.5.8:  Operations 
of  floating-point  types 
A.2.6 


Theoretically,  the  maximum  number  of  digits  of  accuracy  that 
ran  be  obtained  from  a  floating-point  niimber  with  a  48-bit 
mantissa  is  14  (for  more  information,  see  subsection  3.5.7  of  the 
LRM).  However,  the  roiinding  errors  introduced  by  the  hardware 
in  performing  floating-point  division  using  a  reciprocal 
approximation  cause  slight  variations  in  the  accuracy  of  the 
low-order  bits.  This  can  affect  the  accuracy  of  the  last  decimal 
digit  of  the  result,  violating  the  Ada  rules  of  the  accuracy  of 
floating-point  arithmetic.  For  this  reason,  the  maximum 
number  of  decimal  digits  was  defined  as  13,  allowing  for  a 
mantissa  of  only  44  bits.  This  ehminates  the  accuracy  problems 
encountered  from  the  rounding  of  the  low-order  bits. 


The  only  predefined  floating-point  t3rpe  is  FLOAT.  The 
attributes  are  shown  in  Table  12.  Using  exphcit  real  type 
definitions  will  lead  to  more  portable  code.  Types  Short_Float 
and  Long_Float  are  not  implemented. 


Table  12.  Attributes  of  predefined  type  FLOAT 


Attribute 

Type  FLOAT 

' Machine_Over flows 

TRUE 

' MachinG_Rounds 

TRUE 

' Machine_Radix 

2 

'Machine_Mantissa 

45 

' Machine_Emax 

8191 

' Machine_Emin 

-8192 

'Mantissa 

45 

' Digits 

13 

'Size 

64 

'  Emax 

180 

' Safe_Emax 

8190 

' Epsilon 

5.684341886081E-14 

' First 

-2 .726870339049E+2465 
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System-defined  attributes 
for  floating-point  types 
A.2.6.1 


Extended_Digits 
attribute  for  floating-point 
types 
A.2.6.2 


Ext  ended_D i g i t  s 

example 

A.2.6.3 


Table  12. 

Attributes  of  predefined  t3T)e  FLOAT 
(continued) 

Attribute 

Type  FLOAT 

'Last 

2.726870339049E+2465 

' Safe_Large 

2.726870339049E+2465 

'  Safe_Sinall 

1.833603867555E-2466 

' Large 

1.532495540866E+54 

' Small 

3.262652233999E-55 

Cray  Ada  supports  system-defined  attributes  for  floating-point 
t3rpes  as  described  on  the  following  pages. 


The  Extended_Digits  attribute  returns  a  number  of  type 
Natural,  showing  the  number  of  digits  in  the  mantissa  of  model 
numbers  of  subtype  X  as  if  they  were  expressed  in  the  specified 
base.  Extended^Digits  has  the  following  syntax: 


T ' Ext  ended_Di gi t  s ( base ) 


The  parameter  description  for  the  Extended_Digits  function 
for  floating-point  types  is  as  follows: 

Parameter  Description 

base  Base  in  which  the  image  is  to  be  displayed.  If  a 

base  is  not  spediied,  the  default  is  10. 


Suppose  the  following  type  were  declared: 

Type  X  is  digits  5  range  -10.0  ..  16.0; 
The  following  wo\ild  then  be  true: 

X'Extended_Digits  =  5 
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Ext  ended_Image 
attribute  for  floating-point 
types 
A.2.6.4 


The  Extended_Image  attribute  returns  a  string  image 
associated  with  its  floating-point  parameter  that  is  consistent 
with  the  LRM  floating-point  Text_IO  definition  for  put.  The 
Text_IO  definition  states  that  this  attribute  returns  the  value  of 
a  floating-point  parameter  as  a  decimal  literal  with  the  format 
defined  by  the  other  parameters.  If  the  value  is  negative,  a 
minus  sign  is  included  in  the  integer  part  of  the  value  of  the 
parameter.  If  Exp  is  0,  the  integer  part  of  the  output  has  as 
many  digits  as  are  needed  to  represent  the  integer  part  of  the 
value  of  the  parameter,  or  is  0  if  the  value  of  the  parameter  has 
no  integer  part.  See  LRM  subsections  14.3.8:13  and  14.3.8:15. 
The  Extended_Image  attribute  has  the  following  S3mtax: 


X '  Extended_lmage  (Item,  Fore,  Aft,  Exp,  Base,  Based ) 


For  a  prefix  X  that  is  a  discrete  type  or  subtype,  this  attribute  is 
a  function  that  may  have  more  than  one  parameter.  Parameter 
Item  must  be  a  real  value.  The  resulting  string  is  without 
tinderlines  or  trailing  spaces. 

The  parameter  descriptions  for  the  Extended_liTvage  function 
for  floating-point  types  are  as  follows: 

Parameter  Description 

Item  Item  for  which  an  image  is  desired.  This 

parameter  is  required. 

Fore  Minimum  number  of  characters  for  the  integer 

part  of  the  decimal  representation  in  the  return 
string.  This  includes  a  minus  sign  if  the  value  is 
negative,  and  the  base  with  the  #  symbol  if  based 
notation  is  specified.  If  the  integer  part  to  be 
output  has  fewer  characters  than  specified  by 
Fore,  leading  spaces  are  output  first  to  make  up 
the  difference.  If  Fore  is  not  specified,  the 
default  is  2. 

Aft  Minimum  number  of  decimal  digits  after  the 

decimal  point.  If  the  delta  of  the  type  or  subtype 
is  greater  than  0.1,  Aft  is  1.  If  Aft  is  not 
specified,  the  default  isX'Digits-1.  If  based 
notation  is  specified,  the  trailing  #  symbol  is 
included  in  Aft. 
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Parameter  Description 

Exp  Minimum  number  of  digits  in  the  exponent  will 

consist  of  a  sign  and  the  exponent.  Additionally, 
it  may  contain  leading  zeros.  If  Exp  is  not 
specified,  the  defaiilt  is  3.  If  Exp  is  0,  an 
exponent  is  not  used. 

Base  Base  in  which  the  image  is  to  be  displayed.  If  a 

base  is  not  specified,  the  default  is  10. 

Based  Specifies  (true  or  false)  whether  the  returned 

string  is  in  base  notation.  If  a  preference  is  not 
specified,  the  default  is  false. 


Example  of 
Extended_Image  for 
floating-point  types 
A2.6.5 


Suppose  the  following  t3rpe  were  declared: 


Type  X  is  digits  5  range  -10.0 
The  following  would  then  be  true: 


16.0; 


X ' Extended_Image (5.0) 

X ' Ext  ended_ Image (5.0,1) 

X ' Ext ended_Image ( - 5 . 0 , 1 ) 

X ' Extended_Image ( 5 . 0 , 2 , 0 ) 

X ' Extended_Image { 5 . 0 , 2 , 0 , 0 ) 

X ' Extended_lmage 15.0,2,0,0,2) 

X ' Extended_Image (5. 0,2, 0,0, 2, True ) 
X ' Extended_Image (5. 0,2, 2, 3, 2, True ) 


’  5.0000E+00' 
'5.0000E+00' 
'-5.0000E+00' 
'  5.0E+00' 

'  5.0' 

'101.0' 
'2#101. 0#' 
'2#l.l#E+02' 


Extended_Value  The  Extended_Value  attribute  returns  a  value  of  a 

attribute  for  floating-point  floating-point  type  or  subtype  associated  with  its  parameter  in 
types  the  same  manner  as  does  floating-point  Text_IO.  The  Text _I0 

A2.6.6  definition  skips  leading  zeros,  reads  a  pl\is  or  minus  sign  (if 

present),  and  then  reads  the  string  according  to  the  syntax  of  a 
real  literal.  The  return  value  corresponds  to  the  sequence  input. 
See  LRM  subsections  14.3.8:9  and  14.3.8:10.  The  syntax  of 
Extended_Value  is  as  follows: 


X '  Extended_Value  (Item ) 


182 


Cray  Research,  Inc. 


SR-S082  2  0 


Cray  Ada  Environment,  Volume  2:  Programming  Guide 


LKM  Annotations 


Example  of 
Ext  ended_Va  lue  for 
floating-point  types 
A.2.6.7 


Fixed-point  types 
A.2.6.8 


For  a  prefix  X  that  is  a  discrete  type  or  subtype,  this  attribute  is 
a  function  with  a  single  parameter.  The  actual  parameter  Item 
must  be  of  predefined  type  string.  Any  leading  or  trailing 
spaces  in  the  string  are  ignored.  When  an  illegal  string  is 
passed,  a  C0NSTRAINT_ERR0R  is  raised. 

The  parameter  description  for  the  Extended_Value  function  for 
floating-point  t3T)es  is  as  follows: 

Parameter  Description 

Item  Parameter  of  predefined  type  string.  The  type 

of  the  returned  value  is  base  t3pe  X. 


Suppose  the  following  t5pe  were  declared: 

Type  X  is  digits  5  range  -10.0  ..  16.0; 

The  following  would  then  be  true: 

X'Extended_Value('5.0')  =  5.000E+00 

X'Extended_Value('0.5El')  =  5.000E+00 

X'Extended_Value('2#1.01#E2')  =  5.000E+00 


The  LKM  specifies  the  model  numbers  of  a  fixed-point  type.  In 
the  following,  the  end  points  are  not  model  numbers: 

type  My_Fixed  is  delta  0.25  range  -8.0  ..  +8.0; 

The  set  of  model  numbers  for  this  type  is  (-7.75,  -7.5. ...,  -0.25. 
0.0,  +0.25, ...,  +7.5,  +7.75).  This  means  that  it  is  legal  to  raise 
Const  raint_error  when  the  value  8 . 0  is  assigned  to  an  object 
of  type  My_Fixed.  The  expression  My_Fixed '  Last  wiU  return 
+7.75. 
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LRM  3.5.10:  Operations 
of  fixed-point  types 
A.2.7 

Extended_Aft  attribute 
for  fixed-point  types 
A.2.7.1 


Example  of 
Extended_Aft  for 
fixed-point  types 
A.2.7.2 


Cray  Ada  supports  the  system-dependent  attributes  for 
fixed-point  t3rpes  that  are  described  in  this  subsection. 


The  Extended_Aft  attribute  returns  the  natural  number 
representing  the  minimum  number  of  characters  required  to 
represent,  in  a  specified  base,  the  fi:actional  part  of  a  declared 
fixed-point  tjqje  (not  including  the  decimal  point). 
Extended_Af  t  has  the  following  syntax: 


T '  Extended_Af  t  (Base,  Based ) 


The  parameter  descriptions  for  the  Extended_Af  t  function  for 

fixed-point  types  are  as  follows: 

Parameter  Description 

Base  Base  in  which  the  image  is  to  be  displayed.  If  a 

base  is  not  specified,  the  default  is  10. 

Based  Specifies  (true  or  false)  whether  the  returned 

v^ue  is  in  base  notation.  If  a  preference  is  not 
specified,  the  default  is  false. 


Suppose  the  following  type  were  declared: 

Type  X  is  delta  0.1  range  -10.0  ..  17.1; 
The  following  would  then  be  true: 


X ' Extended_Af t 

=  1  —  '1'  from  0.1 

X ' Extended_Af t ( 2 ) 

=  4  —  '0001'  from 

2#0.0001# 
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Extended_Fore  attribute 
for  fixed-point  types 
A.2.7.3 


Example  of 
Extended_Fore  for 
fixed-point  types 
A.2.7.4 


The  Extended_Fore  attribute  returns  the  natural  number 
representing  the  minimum  ntimber  of  characters  required  to 
represent,  in  a  specified  base,  the  integer  part  of  a  declared 
fixed-point  type  (not  including  the  decimal  point). 
Extended_Fore  has  the  following  syntax  when  used  with 
fixed-point  types: 


T '  Extended_Fore  (Base,  Based ) 


The  parameter  descriptions  for  the  Extended_Fore  function  for 

fixed-point  t3rpes  are  as  follows: 

Parameter  Description 

Base  Base  in  which  the  subtype  is  to  be  displayed.  If  a 

base  is  not  specified,  the  default  is  10. 

Based  Specifies  (true  or  false)  whether  the  retiimed 

v^ue  is  in  base  notation.  If  a  preference  is  not 
specified,  the  default  is  false. 


Suppose  the  following  t3T)e  were  declared: 

Type  X  is  delta  0.1  range  -10.0  .. 

The  following  would  then  be  true: 

X'Extended_Fore  =  3 

X'Extended_Fore (2)  =  6 


17.1; 


—  *-10' 

—  '  10001' 
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Ext  ended_Image 
attribute  for  fixed-point 
types 
A.2.7.5 


The  Extended_Image  attribute  for  fixed-point  types  retvims  the 
string  image  associated  with  its  fixed-point  parameter,  based  on 
the  same  definition  as  that  used  by  floating-point  Text_IO.  The 
attribute  retiims  the  value  of  a  fixed-point  parameter  as  a 
decimal  literal  with  the  format  defined  by  the  other  parameters. 
If  the  value  is  negative,  a  minus  sign  is  included  in  the  integer 
part  of  the  value  of  the  parameter.  If  Exp  is  0,  the  integer  part 
of  the  output  has  as  many  digits  as  are  needed  to  represent  the 
integer  part  of  the  value  of  the  parameter,  or  is  0  if  the  value  of 
the  parameter  has  no  integer  part.  See  LRM  subsections 
14.3.8:13  and  14.3.8:15.  The  Extended_Image  attribute  has  the 
following  syntax  when  used  with  fixed-point  t3rpes: 


X '  Extended_Image  (Item,  Fore,  Aft,  Exp,  Base,  Based ) 


For  a  prefix  X  that  is  a  discrete  type  or  subt3rpe,  this  attribute  is 
a  function  that  may  have  more  than  one  parameter.  The 
parameter  Item  must  be  a  real  value.  The  resulting  string  is 
without  underlines  or  trailing  spaces. 

The  parameter  descriptions  for  the  Extended_Image  function 
for  fixed-point  types  are  as  follows: 

Parameter  Description 

Item  Item  for  which  an  image  is  desired.  This 

parameter  is  required. 

Fore  Minimum  number  of  characters  for  the  integer 

part  of  the  decimal  representation  in  the  retiim 
string.  This  includes  a  minus  sign  if  the  value  is 
negative,  and  the  base  with  the  #  symbol  if  based 
notation  is  specified.  If  the  integer  part  to  be 
output  has  fewer  characters  than  specified  by 
Fore,  leading  spaces  are  output  first  to  make  up 
the  difference.  If  Fore  is  not  specified,  the 
default  is  2. 

Aft  Minimum  number  of  decimal  digits  after  the 

decimal  point.  If  the  delta  of  the  type  or  subt5q)e 
is  greater  than  0.1,  A/t  is  1.  If  no  Aft  is  specified, 
the  default  is  X' Digit  s-1.  If  based  notation  is 
specified,  the  trailing  #  symbol  is  included  in  Aft. 
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Parameter  Description 

Exp  Minimum  number  of  digits  in  the  exponent,  will 

consist  of  a  sign  and  the  exponent.  Additionally, 
it  may  contain  leading  zeros.  If  no  Exp  is 
specified,  the  default  is  0.  If£xp  is  0,  no 
exponent  is  used. 

Base  Base  in  which  the  image  is  to  be  displayed.  If  a 

base  is  not  specified,  the  default  is  10. 

Based  Specifies  (true  or  false)  whether  the  returned 

string  is  in  base  notation.  If  a  preference  is  not 
specified,  the  default  is  false. 


Example  of 
Ext  ended_  Image  for 
fixed-point  types 
A2.7.6 


Suppose  the  following  type  were  declared: 


Type  X  is  delta  0.1  range  -10.0  ..  17.0; 


The  following  would  then  be  true: 

X ' Extended_Image (5.0) 

= 

o 

o 

X ' Ext ended_ Image (5.0,1) 

= 

'5.00' 

X ' Extended_lmage (-5.0,1) 

= 

'-5. 00' 

X ' Extended_lmage ( 5 . 0 , 2 , 0 ) 

= 

'  5.0' 

X ' Ext ended_ Image ( 5 . 0 , 2 , 0 , 0 ) 

= 

'  5.0' 

X ' Ext ended_ Image (5. 0,2, 0,0, 2) 

= 

'101.0' 

X ' Ext ended_ Image (5. 0,2, 0,0, 2, True ) 

= 

'2#101.0#' 

X ' Extended_Image (5. 0,2, 2, 3, 2, True ) 

= 

'2#1. l#E+02 

Extended_ValuG 
attribute  for  fixed-point 
types 
A-2.7.7 


The  Extended_Value  attribute  for  fixed-point  types  returns  a 
value  of  a  fixed-point  type  or  subtype  associated  with  its 
parameter.  This  parameter  is  described  in  the  same  manner  as 
the  fixed-point  Text_IO  definition;  the  attribute  skips  any 
leading  zeros,  reads  a  plus  or  minus  sign  (if  present),  and  then 
reads  the  string  according  to  the  syntax  of  a  real  Uteral.  The 
retiim  value  corresponds  to  the  sequence  input.  See  LRM 
subsections  14.3.8:9  and  14.3.8:10.  Extended_Value  has  the 
following  syntax  when  used  with  fixed-point  tjrpes: 
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X '  Extended_Value  (Image ) 


For  a  prefix  X  that  is  a  discrete  t3T)e  or  subtype,  this  attribute  is 
a  function  with  a  single  parameter.  The  actual  Item  argument 
must  be  of  predefined  type  string.  Any  leading  or  trailing 
spaces  in  string  X  are  ignored.  When  an  illegal  string  is  passed, 
a  CONSTRAlNT_ERROR  is  raised. 

The  parameter  description  for  the  Extended_Value  function  for 
fixed-point  types  is  as  follows: 

Parameter  Description 

Image  A  parameter  of  predefined  type  string.  The 

t3rpe  of  the  returned  value  is  the  base  type  of  the 
input  string. 


Example  of 

Suppose  the  following  t3T)e  were  declared: 

Extended_Value  for 
fixed-point  types 

Type  X  is  delta  0.1  range  -10.0  .. 

17.0; 

A2.7.8 

The  following  would  then  be  true: 

X ' Extended_Value ('5.0') 

=  5.0 

X ' Extended_Value ( ' 0 . 5E1 ' ) 

=  5.0 

X'Extended  Value ( '2#1 . 01#E2 ' ) 

=  5.0 

LRM  section  4: 
Names  and 
expressions 

A3 

LRM  4.8:  Allocators 
A3.1 


This  subsection  describes  the  parts  of  LRM  section  4  applicable 
to  the  Cray  Ada  implementation. 


The  action  of  pragma  CONTROLLED  is  the  default  action  of  the 
Cray  Ada  compiler.  By  default,  no  automatic  storage 
reclamation  is  done. 


LRM  4.10:  Universal  There  is  no  limit  on  the  range  of  literal  values  for  the  compiler. 

expressions 

A3.2 
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LRM  section  9: 
Tasks 

A.4 

LRM  9.6:  Delay 
statements,  duration, 
and  time 
A.4.1 


LRM  9.8:  Priorities 
A.4.2 


There  is  no  limit  on  the  accuracy  of  real  hteral  expressions. 
Real  hteral  expressions  are  computed  by  an  arbitrary-precision 
arithmetic  package. 


This  subsection  describes  the  parts  of  LRM  section  9  that  are 
apphcable  to  the  Cray  Ada  implementation. 


This  implementation  uses  46-bit  fixed-point  numbers  to 
represent  t3T}e  DURATION.  The  attributes  of  the  DURATION  are 
shown  in  Thble  13. 


Table  13.  Attributes  of  type  DURATION 


Attribute 

Value 

'Delta 

6.103515625000x10-^  (2'^“) 

' Small 

6.103515625000x10-^  {2-^^) 

'  First 

-86400 

'  Last 

86400 

'  Size 

32 

' Safe_large 

1.310719999390x10^ 

' Large 

1.310719999390x10^ 

Sixty-four  levels  of  priority  are  available  to  associate  with  tasks 
through  pragma  PRIORITY.  Predefined  subtype  Priority  is 
specified  in  package  SYSTEM  as  follows: 

subtype  Priority  is  Integer  range  0..63; 

Currently,  the  priority  assigned  to  tasks  without  a  pragma 
PRIORITY  specification  is  31;  that  is  the  following: 

(System. Priority ' First  +  System. Priority ' Last )  /  2 
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LRM  9.11:  Shared 

variables 

A.4.3 


LRM  section  10: 
Program  structure 
and  compilation 
issues 

A.5 

LRM  section  11: 
Exceptions 

A.6 

LRM  11.1:  Exception 

declarations 

A.6.1 


LRM  11.7:  Suppressing 

checks 

A.6.2 


The  only  restrictions  on  shared  vsiriables  are  those  specified  in 
the  LRM.  Distributed  tasking  model  does  m,  .  cixist  in  Cray  Ada, 
so  pragma  SHARED  is  supported  de  facto.  Any  reference  to  a  data 
object  is  a  synchronization  point. 


All  main  programs  are  assumed  to  be  parameterless  procedures 
or  functions  that  return  an  integer  result  t3rpe.  The  integer 
value  returned  is  stored  in  the  UNICOS  and  status  variable. 


This  subsection  describes  the  parts  of  LPM  se-^tion  11  applicable 
to  the  Cray  Ada  implementation. 


Numeric_Error  is  raised  for  integer  or  floating-point  overflow 
and  for  divide-by-zero  situations.  Floating-point  underflow 
yields  a  result  of  0  without  raising  an  exception. 

Prograin_Error  and  Storage_Error  are  reused  by  those 
situations  specified  in  LRM  subsection  11.1. 


Pragma  SUPPRESS_ALL  suppresses  all  checks.  It  can  appear 
anywhere  that  a  SUPPRESS  pragma  can  appear  (as  defined  in 
the  LRM),  and  its  scope  is  the  same  as  that  of  pragma  SUPPRESS. 
It  is  the  equivalent  to  the  following  call  to  pragma  SUPPRESS: 
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NO_SUPPRESS  is  a  pragma  defined  by  Cray  Ada  that  prevents 
the  suppression  of  checks  within  a  particvilar  scope.  It  can  be 
used  to  override  pragma  SUPPRESS  in  an  enclosing  scope. 
Pragma  NO_SUPPRESS  is  particularly  useful  when  you  have  a 
section  of  code  that  rehes  on  predefined  checks  to  execute 
correctly,  but  you  need  to  suppress  checks  in  the  rest  of  the 
compilation  unit  for  performance  reasons. 

Pragma  NO_SUP PRESS  has  the  same  syntax  as  pragma 
SUPPRESS  and  may  occur  in  the  same  places  in  sotirce  code.  The 
syntax  for  pragma  NO_SUPPRESS  is  as  follows: 


pragma  NO_SUPPRESS  (identifier  [ ,  lON=>]  [name] )  ; 


identifier  Type  of  check  you  want  to  suppress  (for  example, 
access_check). 

name  Name  of  the  object,  type/subtype,  task  unit,  generic 
unit,  or  subprogram  in  which  the  check  should  be 
suppressed. 

Pragma  SUPPRESS_ALL  works  the  same  way  as  pragma 
SUPPRESS  when  mixed  with  pragma  NO_SUPPRESS. 

If  neither  SUPPRESS  nor  NO_SUPPRESS  is  present  in  a  program, 
checks  are  not  suppressed.  SUPPRESS  may  also  be  controlled 
using  the  -i  option.  See  Cray  Ada  Environment,  Volume  1: 
Reference  Manual,  publication  SR-3014. 

If  either  SUPPRESS  or  NO_SUPPRESS  is  present,  the  compiler 
uses  the  pragma  that  applies  to  the  specific  check  to  determine 
whether  that  check  is  to  be  made.  If  both  SUPPRESS  and 
NO_SUPPRESS  are  present  in  the  same  scope,  the  pragma 
declared  last  takes  precedence.  The  presence  of  pragma 
SUPPRESS  or  NO_SUPPRESS  in  the  source  code  takes  precedence 
over  the  -i  option  on  the  command  line. 
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LRM  section  13: 

Representation 

clauses  and 

implementation 

dependent 

features 

A.7 


This  subsection  describes  the  parts  of  LRM  section  13  applicable 
to  the  Cray  Ada  implementation. 

Cray  Ada  supports  most  LRM  section  13  facilities.  The  following 
subsections  document  the  LRM  section  13  facilities  that  are  not 
implemented  or  that  require  explanation.  Facilities 
implemented  exactly  as  described  in  the  LRM  are  not  described. 

LRM  subsections  13.1  through  13.5  discuss  representation 
clauses,  which  let  you  specify  the  way  objects  are  represented.  If 
you  do  not  use  representation  clauses,  the  compiler  assvimes 
default  data  representations  for  each  t3T)e  and  stores  objects  as 
it  chooses. 


LRM  13.1: 

Representation  clauses 
A.7.1 


Representation  clauses  are  not  supported  for  derived  t5T)es. 

Records  that  are  packed  using  pragma  PACK  adhere  to  the 

following  conventions: 

•  The  allocated  size  of  an  element  of  an  array  is  alwa3rs  a  power 
of  2  (1,  2, 4, ... ),  The  allocated  size  for  record  elements  is  the 
minimum  number  of  bits  required,  except  for  character  types 
(which  are  always  8). 

•  Scalar  components  of  records  may  not  cross  word  boundaries. 

•  Components  that  are  array  types  are  allocated  on  a  boundary 
that  is  a  multiple  of  the  size  of  an  array  element.  Components 
that  are  record  types  are  ahgned  on  word  boimdaries. 
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"rable  14  shows  the  objects  that  can  and  cannot  be  packed: 


Table  14.  Packing  of  objects 


Type 

Packable 

Packing  in  composites 

Unsigned  integer 

Yes 

Elements  must  be  constrained 

Signed  integer 

Yes 

Yes 

Fixed  point 

No 

No 

Float 

No 

No 

Character 

Yes 

Yes 

String 

Yes§ 

Yes 

Boolean 

Yes 

Yes 

Enumeration  type 

Yes 

Yes 

Task 

No 

No 

Access  t3pe 

No 

No 

Records 

Yes 

Yes« 

Arrays 

Yes 

Ye8» 

§  Strings  are  packed  by  default  as  1  character  per  byte. 
§§  Subject  to  the  packing  rules  of  the  components. 


See  “Internal  representation  of  packed  types,"  page  86,  for  an 
examples  illustrating  the  use  of  pragma  PACK. 


LRM  13.2:  Length  The  following  conventions  apply  to  length  clauses  in  Cray  Ada: 

clauses 

A. 7.2  •  Size  specification:  T'size 

The  Cray  Ada  compiler  lets  users  specify  the  size  of  certain 
Ada  objects  in  a  length  clause.  Integer,  chsu'acter,  and 
enumeration  t3rpes,  or  arrays  of  these  types  are  affected  by 
length  clauses.  Length  clauses  are  not  ^owed  for 
floating-point  types,  fixed-point  t3rpes,  and  record  types. 

•  Specification  of  collection  size:  T’storage_size 

The  storage_size  attribute  is  supported  for  collections. 
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LRM  13.3:  Enumeration 
representation  clauses 

Kl.S 


•  Specification  of  storage  for  a  task  activation: 


T'  storage_size 

The  Cray  Ada  compiler  lets  users  specify  the  stack  size  for  a 
task  activation  by  using  the  Storage_£ize  attribute  in  a 
length  clause.  The  size  specified  is  the  initial  amoimt  of 
storage  allocated  for  tasks  of  that  type.  Using  a  length  clause 
apphed  to  a  tnsW  type  dcco  nc^  d  ccmug  uu  Lxie 

amount  of  space  allocated  to  that  task,  and  if  that  task  needs 
more  space  during  its  execution,  it  wiU  make  calls  to  the 
system  to  increase  its  stack  size. 


Length  clauses  of  the  form  in  the  following  example  (T  is  a 
task  type),  specify  a  task’s  initial  stack  size  allocated  at  run 
time.  The  use  of  this  clause  is  encoiiraged  in  all  tasking 
applications  to  control  the  size  of  applications  and  to  improve 
their  performance.  Without  this  clause,  the  compiler  may  use 
a  large  default  value  (consuming  inordinate  amounts  of 
memory)  or,  if  the  default  value  is  too  small,  the  task  may 
make  numerous  calls  for  additional  stack  space  (slowing 
execution). 


for  T' storage_size  use  expression 

•  Specification  of  small  for  a  fixed-point  type:  T'  small 

The  small  attribute  for  fixed-point  types  is  supported  only  for 
powers  of  2. 


Cray  Ada  supports  eniimeration  representation  clauses  for  all 
types  other  than  Boolean. 

Be  aware  that  the  use  of  such  clauses  can  introduce  considerable 
overhead  into  many  operations  that  involve  the  associated  type. 
Such  operations  include  indexing  an  array  by  an  element  of  ^e 
type,  and  computing  the  '  POS,  '  PRED,  or  '  SUCC  attributes  for 
values  of  the  type. 
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LRM  13:4:  Record 
representcUion  clauses 
A.  7.4 


•  Each  component  of  the  record  must  be  specified  with  a 
component  clause. 

•  Each  component  of  the  record  must  be  constrained  such  that 
its  size  is  less  than  or  equal  to  the  number  of  bits  in  the 
component  specification. 

•  The  constraint  on  a  record  component  must  be  in  a  positive 
range.  Negative  values  cannot  be  represented  in  record 
components. 

•  The  alignment  of  the  record  is  restricted  to  mod  1,  word 
aligned;  therefore,  records  may  be  aligned  starting  at  any 
word  address. 

•  The  order  of  bits  within  a  word  is  left  to  right  (fi-om  most 
significant  to  least  significant). 

•  Scalar  components  may  not  cross  word  boundaries. 

The  following  example  shows  two  different  representations  for 

the  same  data  items: 


Record  representation  clauses  are  supported  by  Cray  Ada. 
Because  record  components  are  subject  to  rearrangement  by  the 
compiler,  you  must  use  representation  claxises  to  provide  a 
particvilar  layout.  Such  clauses  are  subject  to  the  following 
constraints: 
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—  define  cornponent  types 

type  Bits_32_Type  is  range  0 ..  (2**32 ) -1 ; 

—  define  record  type 
type  Rep_Record  is  record 

A  :  boolean; 

B  :  Bits_32_Type; 

C  :  Bits_32_Typr r 
end  record; 

—  one  representation 
for  Rep_Record  use  Record 

at  mod  1; 

whole  record  is  word-aligned. 

—  no  other  value  is  allowed. 

A  at  0  range  0 . . 0  ; 

B  at  0  range  1 . . 32  ; 

C  at  1  range  0 . . 3 1  ; 

—  field  can't  cross  64-bit  boundary 
end  record; 

—  alternate  representation;  32-bit-aligned 
fields 

for  Rep_Record  use  record 
A  at  0  range  0 . . 3 1  ; 

B  at  0  range  32.. 63  ; 

C  at  1  range  0 . . 3 1  ; 
end  record; 


Records  may  be  packed  by  use  of  pragma  PACK.  Packed  records 
follow  the  convention  that  scalar  components  of  records  do  not 
cross  word  boimdaries. 


196 


Cray  RsMarch,  Inc. 


SR-S082  2.0 


Cray  Ada  Environment,  Volume  2:  Programming  Guide 


LRM  Annotations 


LRM  13.5:  Address  Address  clauses  for  subprograms,  packages,  and  tasks  are  not 

clauses  supported,  but  they  are  supported  for  objects  and  entries. 

Al.b 

For  address  clauses  applied  to  objects,  a  simple  expression  of 
type  address  is  interpreted  as  a  position  within  the  hnear 
address  space  of  the  machine.  The  address  of  an  object  that  is 
not  aligned  on  a  word  boundary  (for  example,  a  string  slice  that 
begins  in  the  third  byte  of  a  word)  returns  the  address  of  the 
start  of  the  word,  rather  than  the  exact  address  of  the  object.  In 
general  terms,  this  means  that  an  expression  that  appears  in  £in 
object  address  clause  is  interpreted  as  the  address  of  the  first 
storage  vmit  of  the  object. 

Address  clauses  for  objects  may  be  used  to  access  known 
memory  locations.  For  the  Cray  Ada  Environment,  literal 
addresses  are  represented  as  integers,  so  an  unchecked 
conversion  must  be  applied  to  these  literals  before  they  can  be 
passed  as  parameters  oft3T)e  system,  address.  The  Location 
function  is  declared  in  system  for  this  purpose. 

The  following  example  shows  a  hypothetical  case  of  an 
application  that  defined  a  specific  memory  location  to  hold  a 
status  value.  An  address  clavise  is  used  to  map  the 
Status_Value  to  the  predefined  location. 
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PACKAGE  Application_Status_Manager  IS 

—  Set  status  of  application  in  communication  area. 

PROCEDURE  Set_Status (Status  :  IN  Natural); 

—  Fetch  status  of  application  from  communication  area. 
FUNCTION  Status  RETURN  Natural; 

END  Application_Status_Manager ; 

WITH  System; 

PACKAGE  BODY  Application_Status_Manager  IS 
Status_Value  ;  Natural; 

FOR  Status_Value  USE  AT  System . Location ( 8#152# ) ; 

—  An  applications  status  flag  has  been  defined  to  reside  at  a 

—  particular  location. 

PROCEDURE  Set_Status (Status  :  IN  Natural)  IS 

—  Set_Status  sets  the  status  flag  for  an  application 

—  in  the  predefined  status  location. 

BEGIN 

Status_Value  -.  =  Status; 

END  Set_Status; 

FUNCTION  Status  RETURN  Natural  IS 

—  Status  returns  the  value  of  the  applications  status 

—  read  directly  from  the  predefined  status  location. 

BEGIN 

RETURN  Status_Value ; 

END  Status; 

END  Application_Status_Manager ; 


LRM  13.6:  Change  of  Changes  of  representation  are  not  supported  for  types  with 

representation  record  representation  clauses. 

A.7.6 
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LRM  13.7:  The  SYSTEM 
package 

A.7.7 


The  pragmas  SYSTEM_NAME,  storage_UN1T,  and  MEMORY_size 
are  supported  with  Hmitations.  These  pragmas  are  allowed  only 
if  the  argument  to  them  does  not  change  the  existing  value 
specified  in  the  system  package. 


System-dependent  named  Two  S5rstem-dependent  named  values  are  available  through  a 
values  package  called  Sy  St em_lnfo.  A  WITH  must  be  used  to  access 

A7.7.1  these  value.  The  package  contains  the  following: 


Package  System_Info  is 

Compiler_Version_Reference_Nuinber :  Constant  :=  2.0; 
Compiler_Version:  Constant  String  :=  *2.0'; 

end  System_Info; 


LRM  13.7.2: 

Representation  attributes 
A7.7.2 


The  '  Address  attribute  is  not  supported  for  packages. 
'Address  is  also  not  supported  for  constants  evaluated  at 
compile  time,  because  the  values  they  represent  are  substituted 
into  code  during  compilation.  '  Addr es  s  is  available,  however, 
in  cases  in  which  the  value  of  the  constant  cannot  be  determined 
at  compilation  time  (such  as  assignment  of  the  constant  by  use 
of  a  function  call).  '  Address  is  supported  for  labels. 


LRM  13.7.3: 

Representation  attributes 
of  real  types 


A7.7.3 


The  representation  attributes  for  the  predefined  floating-point 
type  FLOAT  are  shown  in  Table  12,  page  179. 
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LRM  13.8:  Machine  code 
insertions 

A.7.8 

LRM  13.9:  Interface  to 
other  languages 
A.7.9 


LRM  13.10,1:  Unchecked 
storage  deallocation 
A-7.9.1 


LRM  13.10.2:  Unchecked 
type  conversions 
A.7.9.2 


Machine  code  insertions  are  not  supported. 


Pragma  INTERFACE  is  supported  for  the  following  Cray 
Research  system  languages: 

•  Fortran  (CF77) 

•  C  (and  therefore,  UNICOS  sj^tem  calls) 

•  Pascal 

•  Cray  Assembly  Language  (CAL) 

Additionally,  Cray  Research  system-defined  pragma  EXPORT 
exists  to  allow  for  calling  Ada  routines  firom  other  Cray  Research 
languages.  See  “Calling  Ada  from  foreign  languages,”  page  160. 


Unchecked  storage  deallocation  firees  memory,  making  it 
available  for  other  processes  or  tasks  within  the  scope  of  the  Ada 
job  that  initially  requested  the  memory.  Because  of  the  memory 
management  s^eme  currently  used  by  UNICOS,  however,  the 
memory  breed  by  unchecked  storage  deallocation  cannot  be 
returned  to  the  operating  system  to  reduce  the  overall  process 
size  of  the  Ada  job.  See  “Stor."  .:e  management,"  page  92,  for 
further  information  on  unchecked  deallocation. 


Unchecked  conversions  are  allowed  between  t3rpes  (or  subt3rpes) 
T1  and  T2  if  the  following  are  true: 

•  They  have  the  same  static  size. 

•  They  are  not  unconstrained  array  or  record  types. 

•  They  are  not  private. 

•  They  are  not  types  with  discriminants. 

The  size  used  in  the  xmchecked  conversion  is  the  '  size  of  the 
target,  which  may  not  be  the  same  as  the  static  size  of  the 
target.  Also,  xmchecked  conversion  of  addresses  can  be  very 
misleading  because  only  a  portion  of  the  bits  in  the  word  are 
address  bits  (24  bits  on  CRAY  X-MP  systems  and  32  bits  on 
CRAY  Y-MP  and  CRAY-2  systems).  The  remaining  bits  in  the 
word  should  be  considered  undefined  in  this  context.  Therefore, 
an  unchecked  conversion  can  produce  erroneous  results. 
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LRM  section  14: 
Input-Output 

A.8 


This  subsection  describes  the  parts  of  LRM  section  14  applicable 
to  the  Cray  Ada  implementation. 


LRM  section  14,2.1:  File  The  form  parameter  available  with  the  open  and  create 
management  procedure  calls  in  packages  sequent  ial_IO,  direct_lO,  and 

A8.1  text_IO  has  no  effect  when  specified  in  the  procedure  call.  The 

default  settings  for  the  file  type  are  always  used. 


LRM  section  14.6: 
Low-level  input  and 
output 

A8.2 


Cray  Ada  does  not  provide  the  predefined  Low_Level_iO 
package.  The  capabilities  of  this  package  are  provided  by  the  I/O 
redirection  feature  of  UNICOS. 


LRM  appendix  B: 

Predefined  language 
pragmas 
A8.3 

Table  15.  Predefined  Cray  Ada  pragmas 


Table  15  lists  each  of  the  Cray  Ada  predefined  language 
pragmas  and.  if  implemented,  the  location  in  this  manual  of 
additional  information. 


Pragma 

Section 

Page 

CONTROLLED 

LRM  4.8  Allocators 

188 

ELABORATE 

Using  pragma  ELABORATE 

9 

INLINE 

Using  pragma  INLINE  for  optimizing 

Using  pragma  INLINE 

61 

INTERFACE 

Pragma  INTERFACE  for  Pascal 

159 

LIST 

Using  pragmas  PAGE  and  LIST 

§ 

MEMORY_SIZE 

LRM  13.7:  The  package  SYSTEM 

199 

OPTIMIZE 

Pragma  OPTIMIZE 

171 

PACK 

LRM  13.1:  Representation  clauses 

192 

PAGE 

Using  pragmas  PAGE  and  LIST 

§ 

PRIORITY 

LRM  9.8;  Priorities 

189 

SHARED 

LRM  9.11:  Shared  variables 

190 

§  See  Cray  Ada  Environment,  Volume  1:  Reference  Manual,  publication  SR-3014. 
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Tkble  15.  Predefined  Cray  Ada  pragmas 
(continued) 

Pragma 

Section 

Page 

STORAGE_UNIT 

LRM  13.7:  The  package  SYSTEM 

199 

SUPPRESS 

LRM  11.7:  Suppressing  checks 

190 

SYSTEM_NAME 

LRM  13.7:  The  package  SYSTEM 

199 

LRM  appendix  F: 
Implementation- 
dependent 
characteristics 

A.9 

The  Ada  language  definition  allows  for  certain  target 
dependencies.  These  dependencies  must  be  described  in  the 
reference  manual  for  each  implementation,  in  an  “Appendix  F” 
that  addresses  each  point  listed  in  LRM  Appendix  F. 

The  following  subsections  constitute  Appendix  F  for  this 
implementation. 

ImplementcUion-defined 

pragmas 

A.9.1 

Cray  Ada  supports  the  following  implementation-defined 
pragmas  listed  in  Table  16. 

Table  16.  Implementation-defined  pragmas 

Attribute 

Section  title 

Page 

COMMENT 

Pragma  COMMENT 

170 

EXPORT 

Calling  Ada  from  a  foreign  language 

160 

IMAGES 

LRM  3.5.1:  Enximeration  types 

171 

INTERFACE_INFORMATI ON 

Pragma  INTERFACE_INFORMATION 

138 

LINKNAME 

Pragma  LINKNAME 

140 

NO_SUPPRESS 

LRM  11.7:  Suppressing  checks 

190 

PRESERVE_LAYOUT 

Pragma  PRESERVE_LAYOUT 

81 

SUP PRES S_ALL 

LRM  11.7 :  Suppressing  checks 

190 

VECTORIZE_LOOP 

Pragma  VECTORlZE_LOOP 

65 
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T ' Size  attribute  when  T  Caution  should  be  used  in  appl3dng  the  T '  Size  attribute  to 
is  an  integer  type  integer  types.  T '  Si ze  applied  to  integer  t3T)es  or  subtypes 

A.9.2  returns  the  minimum  ntimber  of  bits  required  to  hold  any 

possible  object  of  the  type  or  subtjnpe  T.  The  minimum  value  of 
T '  S  i ze  for  integer  types  or  subt3T)es  is  46  or  less.  It  does  not 
accurately  represent  the  size  of  an  object  of  that  type.  For 
integer  types  and  subtypes,  the  value  is  always  64  bits  unless  it 
is  a  packed  object  in  which  case  it  may  be  less. 


Implementation-  Cray  Ada  supports  the  following  implementation-dependent 

dependent  attributes  attributes.  These  are  listed  in  Table  17,  along  with  their  types 

A.9.3  and  the  location  of  their  documentation. 


Table  17.  Implementation-dependent  attributes 


Attribute 

Type 

LRM  subsection 

Page 

T ' Ext  ended_Af  t 

fixed 

3.5.10 

184 

T ' Ext  ended_Di gits 

float 

3.5.8 

180 

T ' Extended_Fore 

fixed 

3.5.10 

185 

T ' Extended_Image 

integer 

3.5.5 

172 

enumeration 

3.5.5 

174 

float 

3.5.8 

181 

fixed 

3.5.10 

186 

T ' Ext  ended_Va lue 

integer 

3.5.5 

176 

enumeration 

3.5.5 

176 

float 

3.5.8 

182 

fixed 

3.5.10 

187 

T ' Extended_Width 

integer 

3.5.5 

177 

enumeration 

3.5.5 

178 

Package  SYSTEM 
A.9.4 


The  current  specification  of  package  SYSTEM  for  CRAY  Y-MP 
systems  is  as  follows: 
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with  Unchecked_Conversion ; 

package  Syscem  is 

Type  N.JVME  is 

CRAY_YMP1 ; 

System_Naine 

constant  name  ;=  CRAY_YMP; 

Meinory_Si  :e 

constant 

=  (2  *’  32)  -i;  — Available  memory,  in  storage  units 

Tick 

constant 

=  0.01;  — Basic  clock  rate,  in  seconds 

Scorage_Un:t: 

constant 

=  64  ; 

Min_Inc 

constant 

=  -  (2  *•  45) ; 

Max_Int 

constant 

=  (2  ••  45)  -1; 

Max_DigiCs 

constant 

=  13; 

Max_ManCiSsa 

constant 

=  45; 

Fine_Del ta 

constant 

:  1.0  /  (2  **  Max_ManCissa) ; 

subtype  Priority  is  Integer  Range  0  ..  63; 

type  Memory  is 

;  private; 

type  Address  is  access  Memory; 

—  Ensures  compatibility  between  addresses  and  access  types. 

--  Also  provides  implicit  NULL  initial  value. 

(continued) 
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Nul l_Address :  constant:  Address  :=  null; 

--  Initial  value  for  any  Address  object 

type  Address_Value  is  range  0  ..  (2**32)  -1; 

— A  numeric  representation  of  logical  addresses  for  use  in  address  clauses 

function  Location  is  new  Unchecked_Conversion  (Address_Value,  Address); 

—  May  be  used  in  address  clauses: 

Object:  Some_Type; 

for  Object  use  at  Location  (8#4000i) ; 

function  Label  (  Name:  in  String  )  return  Address; 

—  The  LABEL  function  allows  a  linic  name  to  be  specified  as  the  address 
--  for  an  imported  object  in  an  address  clause; 

--  Object:  Some_Type; 

—  for  Object  use  at  Label ( *ObjectSSLINK_NAME, EXTERNAL ') ; 

—  System. Label  returns  Null_Address  for  non-literal  parameters, 
procedure  Report_Error 

—  The  Report_Error  routine  can  be  called  from  within  exception 
--  handlers.  It  will  print  out  a  tracebac)^  for  the  most  recently 
--  handled  exception,  including  a  tracebacic  from  the  point  of  call 
--  to  System . Report_Errcr  itself. 

private 


end  Sv'stem.  ; 
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type  name 
System_Name 
Memory_Size 
Address_Value 


Representation  clause 
restrictions 

A.9.5 


Implemen  tation- 
generated  names 

A.9.6 


Address  clause 
expression 
interpretation 
A.9.7 


Unchecked  conversion 
restrictions 

A.9.8 


The  SYSTEM  package  for  CRAY  X-MP  and  CRAy-2  systems  is  the 
same  except  for  the  following  four  lines: 


CRAY  X-MP  systems 
CRAY_XMP 
CRAY_XMP 
(2  **  24)  -  1 
0  ..  (2  **  24)  -  1 


CRAV-2  systems 

CRAY_2 

CRAY_2 

(2  **  32)  -  1 
0  . .  (2  **  32)  -  1 


MEMORY_SI  ZE  is  a  predefined  number  of  words.  This  number  of 
words  is  not  necessarily  the  number  of  words  for  the  machine  on 
which  your  code  is  running,  lb  determine  the  total  number  of 
words  available  or  the  process  size,  use  UNICOS  system  call 
limit(2). 


Restrictions  on  representation  clauses  in  the  Cray  Ada  compiler 
are  discussed  in  “LRM  section  13:  Representation  clauses  and 
implementation-dependent  features,”  page  192. 


There  are  no  implementation-generated  names  to  denote 
implementation-dependent  components. 


Expressions  that  appear  in  address  specifications  are 
interpreted  as  the  first  storage  unit  of  the  object.  “LRM  13.5: 
Address  clauses,”  page  197,  contains  a  disciission  of  address 
clauses. 


Unchecked  conversions  are  allowed  between  any  types  or 
subtypes  unless  the  target  type  is  an  unconstrained  record  or 
array  type.  A  further  discussion  of  these  restrictions  on 
unchecked  conversions  is  available  in  “LRM  13.10.2:  Unchecked 
type  conversions,”  page  200. 
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Implementation- 

dependent 

characteristics  of  the 

HO  packages 

A.9.9 


subtype  Field  is  integer  range  0..1000; 

•  Sequential_IO  and  Direct_IO  cannot  be  instantiated  for 
unconstrained  array  types  or  unconstrained  types  without 
default  values. 

•  The  standard  library  contains  preinstantiated  versions  of 
Text_IO.  lnteger_10  for  type  integer  and  of 
Text_IO.  Float_IO  for  type  float.  Additionally,  both  float 
and  integer  instantiations  have  been  provided  for  CRAY_LIB. 

It  is  suggested  that  the  following  be  used  to  eliminate  multiple 
instantiations  of  these  packages: 

Integer_Text_IO 

Float_Text_lO 

CRAY_MATH_LIB 

CRAY_BIT_LIB 

CRAY_UTIL_LIB 

•  Multiple  files  opened  to  the  same  external  file  may  be  opened 
only  for  reading. 

•  In  Text_IO,  Direct_IO,  or  Sequent! a l_IO,  calling 
procedure  CREATE  with  the  name  of  an  existing  external  file 
does  not  raise  an  exception.  Instead,  it  creates  a  new  version 
of  the  file. 

•  In  Direct_lO,  type  COUNT  is  defined  as  follows: 

type  COUNT  is  range  0 . . 35_184_088_831 ; 

•  According  to  the  latest  interpretation  of  the  LEM,  during  a 
Text_IO.Get_Line  call,  if  the  buffer  passed  in  has  been 
filled,  the  call  is  completed  and  any  succeeding  characters 
and/or  terminators  (such  as  line,  page,  or  end-of*file  markers) 
are  not  read.  The  first  Get_Line  call  reads  the  line  up  to,  but 
not  including,  the  end-of-line  mark,  and  the  second  Get_Line 
call  reads  and  skips  the  end-of-line  mark  left  by  the  first  call. 


The  following  characteristics  of  Ada  I/O  packages  are  specific  to 
the  Cray  Ada  implementation: 

•  In  Text_IO,  type  COUNT  is  defined  as  follows: 

type  COUNT  is  range  0 . .2_147_483_646; 

•  In  Text_IO,  type  Field  is  defined  as  follows: 
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